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1 er hebdomadaire des programmes informatiques 



DES PROGRAMMES POUR VOTRE 
ORDINATEUR : apple n e t ir. casio fx 702-p. 

COMMODORE 64 ET VIC 20. GOUPIL .HEWLETT PACKARD 
HP41etHP75.ORIC1.SHARPPC1211,PC1251 5 PC1500,MZ80. 
SINCLAIR ZX 81 et SPECTRUM. TANDY TRS 80. TEXAS 
TI-99/4A. THOMSON T07. 

DEUX SUPER CONCOURS : 10 

prix au meilleur programme CHAQUE MOIS. 1 VOYAGE en 
pour le meilleur logiciel CHAQUE TRIMESTRE. 

Marc Le Hen gagne Edito Menu 

parKo! 



000 francs de 
CALIFORNIE 



72.41 % des volants ORIC - 
13,68 % du total des suffrages 
exprimes - Marc LE HEN ob- 
tient, avec son programme LA- 
BYRINTHE, 86.19 % en votes 
compenses (Ratio entre % dans 
sa categorie et % des program- 
mes ORIC recus) une majorite 
indiscutable! C'est done lui qui 
emporte pour ia premiere fois le 
cheque de 1 0000 francs du con- 
cours HEBDOGICIEL mensuel 
et en prime un ouvrage a choisir 
dans la bibliotheque de la REG- 
LE A CALCUL. J.-F. GROUSSIN 
qui est lui aussi fort bien place 
avec son APPLEII PARLE FRAN- 
QAIS (72.22 % des volants AP- 
PLE, mais "seulement" 75.83 % 
en votes compenses) gagne, 
non pas un lot de consolation, 
mais un prix recompensant I'ori- 



ginalite et I'esprit "HEBDOGI- 
CIEL" de son programme: UN 
ABONNEMENT A VIE A HEBDO- 
GICIEL. C'est Yves QUEVILLON 
qui gagne le logiciel offert par 
TEXAS pour son programme 
FRANCE. Les gagnants dans 
chacune des categories sont. 
dans ie desordre : J.-M. COHEN. 
Olivier FRANCE. Jean-Francois 
CHAPIN, Paul GARDAN, Gerard 
ROUGEVIN, Marc ME2IER, Fre- 
deric DARIN. Francois FONTAN, 
Jean-Pierre LALEVEE, Jean DE- 
LATTRE. Michel STERMANN. 
Alain REBOUT, J.-M. JACQUET 
(et son frere ?), Philippe PAULIN. 
Bernard PAQUAUX et Gilbert 
MAGGIO. Vous trouverez egale- 
ment la liste des gagnants des 
calculatrices CASIO en pages 
interieures ainsi que le recapitu- 
latif des remunerations des au- 
teurs de programmes parus 
dans les quatre premiers nume- 
Suite page 13 



C'est gagne, votre hebdomadai- 
re favori est sur orbite! Les prix 
commencent a affluer pour !e 
prochain concours, en plus des 
prix deja offert par DURIEZ, la 
REGLE A CALCUL. TEXAS et 
CASIO, HACHETTE micro-infor- 
matique dote le concours men- 
suel d'un ALICE et SOUIRELLE 
recompense ie meilleur ORIC de 
deux cassettes a choisir dans sa 
logitheque. II faudra bientot une 
brouette aux gagnants pour 
venir chercher leurs prix ! 

Les programmes pour MPFII 
commencent a rentrer. encore 
un effort et nous aurons suffi- 
samment de choix pour faire re- 
venir les "MULTITECHISTES" 
parmi nous a partir du numero 9 
probablement en compagnie de 
deux nouveaux: le LYNX et le 
CANON X07. 

G. CECCALDI 



Cette semaine, I'espace est a 
vous! 

STAR RAIDER sur APPLE par 
Guy MUNEROL, METEORITES, 
de Didier GROSDEMANGE et 
les MARTIENS ATTERRISSENT. 
de Maurice LHOMME (tous les 
deux pour TRS 80), et enfin, GA- 
LACTIC pour TO 7, par Maurice 
et Chrlstophe DURAND. Le 
BULLDOZER de Francis GUIL- 
LEMOT, essaie de reconstruire 
une ville detruile (TI/99). Deux 
programmes maritimes: JO- 
YEUSE TRAVERSES, de Joel 
VERNET.surFX702P,etRAD!O- 
NAVIGATION MARITIME, de Ro- 
land GALLIER (PC 1211). LA8Y- 
NOIR, un jeu a tiroir de Vincent 
LEV1GNERON sur ZX 81. Un mi- 
nuscule mur de briques sur 
PC1500, MICROMUR. de Jean- 
Marc VERNIAJOU. Quelques 
ieuxbienconnus:OTHELLO.de 
J.-R LALEVEE, sur COMMODO- 
RE 64 (il a deja ecrit BELOTE 



dans un precedent numero), 
TIC-TAC-TOE pour ORIC 1. par 
Christian GAUCHET. PERDS 
PAS LA BILLE, de Karim ZER- 
HOUNI et JACKPOT, de Laure 
DUJON. France FALOUET et Oli- 
vier MANSCOUR. pour GOUPIL. 
Une petite partiede tennis? RO- 
LAND GARROS, de Jacques 
JOLY, sur TI/99 en Basic Etendu. 

Et pour finir. quelques program- 
mes plus serieux, la suite et la fin 
de "COMPTABIL1TE", de Chris- 
tian IUMG sur MZ80. un traile- 
ment de lexte pour PC1251, 
d'lsabelle MULLER (une recidi- 
vism !), CHANGE pour HP 75, 
VOUTES pour HP41, par J.-P 
TOYRE et Inevitable BIORYTH- 
ME pour SPECTRUM, par Lau- 
rent LABBE. 



HIPPOREBUS liouvez lexpression qui se cache dans la B.D. de I'hippocampe Decompose en trois syllabesdans les trois premieres cases, le "tout" a evidemment un rapport avec I'mformattque 
(solution en pagr> mteneure) 



leVleau de die.lT en 

etait UN . 



bi'en oue d'y vivece n 'est pas 
mon element... 



CEUX T5EROME .N'£TAJENT PAS A 
&AGES... 



*ON TOOT EST DOOEC POOP LETS 

lan gage: / O 




Q 



25 novci 



Allemagne 3.50 DM - Belglque 55 Frs - Canada 2,50 S - Luxembourg 57 Frs ■ Suisse 3 Frs 



VOUTE 



Ce programme calcule avec 2 donnees les 3 elements 
manquants d'une 1/2 circonference (sauf arc). Les 
angles sont en degres HMS (1 5°01 '20" - 1 5.01 20) et les 
c6tes en m, dm. cm. ou mm), 

Jean-Pierre TOYRE 

Formules relatives au calcut des angles - cordes - rayons - fleches 

1°) corde - Heche x rappon - 
f 
a 00,0 "eche 

2°) corde - 2 Rayon x sin - ™ J Kayon - 



corde 



corde J + 4 fleche 1 



6°) Heche - Rayon - (Rayon x cos - ) 



7°) sm 1/2 angle au 

centre en degres cor( je 
decimaux — — — — 

2 Rayon 

8°) cos 1/2 angle au 

centre en degres jjeche 

decimaux — 1 

Rayon 



tfP 



A\ 



8KLBL -wis 

82 cf 88 

83 CF 81 
8-t CF 3,' 

85 CF 8.3 

86 CF 84 

87 CLX 

88 CLRC 

89 "CORDE' 1 
19 PROMPT 
1! STO 88 
[2 STO 81 

13 X«8? 

14 SF 88 

15 CLX 

16 -RAPPORT?" 

17 PROKPT 

18 STt 88 
IS STO 82 
28 X=8? 

21 GTO 23 

22 SF 81 

23 FS? 88 

24 GTO 81 
25«L8L 23 

26 CLX 

27 -FLECHE?- 

28 PROMPT 

29 ST+ 98 
38 STO 83 

31 X=9? 

32 GTO 24 

33 SF 82 

34 FS? 88 

35 GTO 81 



36 FS' 91 

37 GTO 81 
38«LBL 24 
39 CLX 

41 PROMPT 

42 STt 88 

43 HP 

44 2 

45 . 

46 STO 84 

47 X=8? 

48 GTO 25 

49 SF 83 
58 FS' 88 

51 GTO 81 

52 FS' 82 

53 GTO 81 
54«L8L 25 

55 CLX 

56 "RAYON INT'- 

57 PROMPT 

58 STO 85 

59 X=8' 
68 GTO 26 

61 SF 94 

62 RCL 88 

63 X»8? 

64 GTO 81 
65*LBL 26 

66 BEEP 

67 -IMPOSSIBLE- 

68 PROMPT 

69 GTO -VOUTES- 
78»LBL 81 



71 PCL 91 

72 X«8? 

73 GTO 83 

74 RCL 82 

75 Rtt 83 

76 • 

77 STO 91 

78 X'8? 

79 GTO 83 
88 2 

81 RCL 95 

82 « 

83 RCL 84 

84 S1H 

85 » 

86 STO 81 
8?«LBL 93 

88 RCL 92 

89 X*8' 
98 GTO 84 

91 SF 25 

92 RCL 81 

93 RCL 83 

94 / 

95 STO 82 
96»LBL 84 

97 RCL 83 

98 X«9? 

99 GTO 97 
199 SF 25 

191 RCL 91 

192 RCL 82 

183 / 

184 STO 83 

185 X«8? 



186 GTO 87 

187 SF 25 

188 8 

189 RCL 95 
118 » 

HI 4 

112 RCL 82 

113 m 

114 ■/=«■> 

115 GTO 86 

116 * 

117 / 

118 STO 93 

119 x«r 
128 GTO 97 
12ULBL 86 

122 RCL 95 

123 PCL 85 

124 RCL 84 

125 X=8' 

126 GTO 87 

127 COS 

128 « 

129 - 

138 STO 93 
131»LBL 87 

132 RCL 84 

133 X»8' 

134 GTO 99 

135 RCL 81 

136 X=9' 

137 GTO 88 

138 RCL 95 

139 X=8? 
148 GTO 88 



141 2 

142 • 

143 l 

144 ASIN 

145 STO 84 

146 X<8' 

147 GTO 8? 
148»L8L 98 
149 RCL 83 
158 X=8' 

151 GTO 89 

152 RCL 85 

153 X=9' 

154 GTO 89 

155 / 

156 CHS 

157 1 

158 « 

159 DCOS 
168 STO 84 
I61»LBL 89 

162 RCL 83 

163 X=8' 

164 GTO 18 

165 RCL 84 

166 X=8? 

167 GTO 18 

168 COS 

169 CHS 
178 1 

171 ♦ 

172 / 

173 STO 85 

174 X<8? 

175 GTO 12 



176'LBl 18 

177 Ra 83 

178 X=»' 

179 GTO 11 
188 Xt2 

181 4 

182 • 

183 RCL 81 

184 Xt2 

185 X=T> 

186 GTO 11 

187 ♦ 

188 RCL 83 

189 8 
198 • 

191 / 

192 STO 85 

193 X«8? 

194 GTO 12 
195«L6L 11 
1% SF 25 

197 RCL 81 

198 RCL 84 

199 SIN 
289 2 

281 • 

282 / 

283 STO 85 
284«L8L 12 
285 RCL 81 
296 STO 88 

287 RCL 82 

288 ST« 88 

289 Ra 83 
219 ST» 99 



211 Rtt »4 

212 ST» n 

214 STi 88 

215 RtL 89 

216 X^ 

217 GTO 91 

218 FIX I 

219 TOME 5 
228 FS?C 88 

221 GTO 2? 

222 Rtt 81 

223 -CORJE=- 

224 XEO 31 
225»LBL 27 

226 FS->C 91 

227 GTO 28 

228 RCL 82 

229 "RAP C/F=- 
239 XEO 31 
231HBL 28 

232 FS?C 82 

233 CTO 29 

234 RCL 83 

235 -FLECHE=- 

236 XEQ 31 
237«L6L 29 

238 FS?C 84 

239 CTO 38 
248 RCL 95 

241 "RfiY. 1NT= 

242 XEO 31 
243»LBL 38 

244 FIX 4 

245 RCL 84 



246 STO 16 
24? I 

248 • 

249 STO M 
251 F5t »3 

251 GTO J2 

252 WS 

253 "H4GIE=" 

254 XEO 31 

255 GTO 32 
256«LBl 3! 
257 emu. X 
258WIFJI 
259 STOP 
268 RTH 
261H8L 32 
262 .EKJ. 




CHANGE 



Cet utilitaire BASIC est destine a donner a votre 

HP 75 C des possibiiites de type editeur, d'ou un 

gain de temps, une plus grande facilite dans la mise au 

point de la programmation. 

Remplacer une chatne de caracteres quelconques par 

une autre chaJne: qui n'en a pas reve lorsqu'il chan- 

geait un a un tous ses PRINT en DISP, lorsqu'il vdulait 

que la variable T 4$ devienne A$. etc.? 

Les neophytes choisiront la version 1, dotee de nom- 

breux controles, ceux qui ne se trompent jamais (rare- 

rnent!) prendront la version 2. 

B. RAGOT 



: MISE EN CEUVRE VERSION 1 : 

• RUN 

• entree du nom du programme a modifier 

• entree de la chalne de caracteres a modifier (ancienne), tous 
les caracteres de la machine sont autorises et vous n'avez pas 
a mettre cette chalne entre coles. 



£ye«pi? ^'utilisation 
Dvart 

19 PEN ***************** 

15 REN EXEHPLES - CHANGE 
28 REN ***************** 

25 P=8 

38 DISP 8 

35 fl=c e e=c 

48 DISP r 

45 a=d 8 e=s * c=ii 

58 DISP P 

55 fl=E 8 8=E 8 C=E 8 INE 

68 DISP E 

65 fl=F 8 B=F 8 C=E 8 M 

8 E=F 

78 DISP F 

75 BsC 8 b=c * c=c f> h--r, 

8 E=G 8 F=G 
88 DISP G 
85 REN wci ne fait Hen 

9pcP5 

[ ' **«**Mt1««*t1*** 

2 ' EXEHPLES - CKGKCE 

3 ' «t*tt*«*t*****t*f 

4 :i=e 

5 PPIWT 8 

i l\< 8 8^C 

, pRim c 

8 Z1=D 8 E=P » C=D 
'i PRINT D 

16 Z1=E » B^E * C=E » D= 

E 



11 PRINT E 

12 Z1=F » B=F 8 C=F 8 B= 
F 8 E=F 

13 PRINT F 

14 Z1=G 8 B=G 8 C=G 8 D= 
G 8 E=C 8 F=G 

15 PRINT G 

16 ! ceci ne fait rien 

Pro?r$*n«? CHANGE 

Version I 

1898 PEM 

1818 REM » » * * » * * * 

1828 PEft »■ * 

\.m REM*CHftNGE* 

1848 PEM * i 

1858 PEN ****** t * 

1868 PEM 

1878 PEN ProWMM 

1888 Pit. 

1898 PEM HP 75 C 

1188 RE" version 

!1!8 REK it base 

1128 PEC 

1 1 38 REN rea 

1148 PEtr car 

II 58 PEN 

[168 PEN e^rr,,rri G RflGOT 

1179 PEM 

1188 PEN »».*•»» » 

1198 REN 

1288 OPTION BASE I 

1218 IHTEGEP JXl 



• entree de la chaine qui remplacera la precedente (NOU- 
VELLE). II est possible d'entrer une chatne vide, dans ce cas, 
I'ancienne chalne sera tout simplement supprimee du pro- 
gramme. 

■ conversion automatique en majuscules : cette option est sur- 
tout utile lorsqu'on veut modifier des mots cles du BASIC 
L'acceptation de I'option permettra a la machine de conside- 
rer comme equivalent des formes telles que DISP ou Disp ou 
disp. 

• confirmation des differents choix. 

• entree du nombre d'occurrence maximal par ligne de pro- 
gramme : on appelle occurrence le nombre de fois ou la meme 
chaine de caracteres se reproduit a I'interieur d'une meme 
ligne de programme. Si vous repondez 2. reules les deux pre- 
mieres chaines rencontrees seront modifiees dans chaque 
ligne de programme. 

■ af lichages caracteristiques fondamentales du programme a 

modifier; 

Nom sur huil caracteres 

Type Basic ou Text 

Taille memoire 

Heure. date de creation 

modifications en cours en balayant tout le pro- 
gramme: 
n° de ligne 
Ancienne Version 
Nouvelle Version 

caracteristiques fondamentales du fichier modi- 
fie. 

• fin de programme: le pointeur de programme est sur le pro- 
gramme modifie qui a ete renumerote de 5 en 5 a partir 
de 1000 



H p75 



1228 HIDTH 32 

1238 BELAY I 

1248 PHIDTH 24 

1258 HflRGTH 24 

1268 STANDBY OFF 

1278 REN 

1238 REN »««•»»» 

1298 REN TITRftCE 

1388 REN »«««. 

1318 REK 

1328 DISP • FONCTION 

EDITEUP - CHRHCE- 

1338 FOR J=38 TO 248 STE 

P 7 

1348 8EEP J,. I 

1358 NEXT J 

1368 WIT I 

1378 REN 

1388 PEN ******««**»*»* 

1398 PEN INITIALISATION 

1488 REN '• mm 

1418 REN 

1428 INTEGER X 

1438 INTEGER P 

1448 DIN HI2561 

1458 DIN CIII281 

1468 DIN DIII23J 

1478 DIN P«I81 

1488 DIN CIH8) 

1498 DIN C2$I8I 

1588 DIN RIM] 

1518 ON ERROR GOTO 2438 

1528 REN 

1538 REN ************** 

1548 PEN SAiSIE OPTIONS 



1558 REN ************** 

1568 REN 
1578 EEEP 88,. I 
1588 INPUT -No« du proir 
arm ? ";Pt 

1598 IF Pt=" TNEN 1578 
168« IF LEN(P«)>8 THEN 1 
578 

1618 PI=UPRM<P() 
1628 BEEP 88.. I 
1638 INPUT -Ancienw cha 
ine ■> -jCI* 

1648 IF Cl$=" THEN 1628 
1658 IF LEN(CU))8 THEN 
1628 

1668 BEER 88,. 1 
1678 INPUT -Nouvelle cha 
ine •> -^C2« 

1688 IF LEN(C2t>>8 THEN 
1668 

1698 IF C2!=CI! THEN BIS 
P "Chaines idenlUues* 8 
GOTO 1628 
1783 BEEP 88,. 1 
1718 DISP 'Conversion na 

jusculn (0/N) ' ■) 

1728 PI=FEY1 

1738 DISP UPRC»<Rt> 

1748 IF PJ=-o- THEN CU = 

UPRCKCU) 8 C21=UPRCI'C 

21) 

1758 IF PIl-o- AND Rifn 

• THEN 1718 

1768 IF C2II" THEN I83C 

1778 BEEP 88.. 1 



II : MISE EN CEUVRE VERSION 2 : 

• RUN. 

• entree du nom du programme- 

• entree de I'ancienne chalne. 

• entree de la nouvelle chaine. 
e'est tout !... 

Aucun controle de coherence, de vraisemblance. pas de 
conversion en majuscules, pas de confirmation, pas dontree 
de nombre d'occurrence (elles seront toutes prises') et pas 
d'aftichage. 

Mais le travail demande sera tout de meme tmt ' 

III: COMMENTAIRES- 

un fichier temporaire de type texte est utilise pour convertir to 
programme binaire en ASCii. ce dernier etanl trait* tignn par 
ligne comme de simples chaines de caracteres 
A noter la puissance du BASIC et du sysleme HEWLETT PAC- 
KARD qui per mettent ce genre de programme sans recours au 
langage machine et sans utilisation des PEEK. POKE ct autres 
USR. 

LEXEMPLE- 

cet exemple montre quelques-uncs des possibiiites de 

CHANGE. Le premier programme AVANT est passe 3 fois par la 

version 2 : 

1 DISP • PRINT 

2A -Zl 

3 REM ■ I 

Pour aboutir au second APRES 




1788 DISP -Supet-ession d 
es -iCl*;" (0/N) ? ■; 
1798 R»=KEYJ 
1888 DISP IJPRC*(R») 
1818 IF R»=-n- TNEN 1628 
1828 IF R$|-o- THEN 1788 
1838 BEEP 88,. I 
1848 DISP CMC devient 
-)C2*i- (0/N) ? •; 
1858 Rt=KEYt 
1868 DISP UPRCKRI) 
1878 IF R«=-n" THEN 1628 
1888 IF RJI-o- THEN 1848 
1898 BEEP 88,. 1 
1988 DISP "Honbre d'ocoi 
rentes (1/9) ? 'I 
1918 R»=lfEV* 
1928 DISP UPRCt(R») 
1938 IF R$CI- OR R«>'9- 
THEN 1988 
1948 X=VAL(R») 
1958 REN 

1968 REN ************** 
1978 REN TRAMSFORBATION 
1988 REN ************** 
1998 REN 
2888 EDIT PI 

2818 RENUN8ER 1888,5.1.9 
999 

2828 TRANSFORM PJ INTO T 
EXT 

2838 ASS1CN I 9997 TO Pt 
2843 REN 



2858 REN ********* 

2868 REN RECHERCHE 
2978 REN •••••»»» 

2888 REN 

2B98 FOR J=1888 TO 9995 

STEP 5 

2188 READ I 9997, J ; L« 

2118 P=POS(L»,CU) 

2128 IF P=8 THEN 2418 

2138 BEEP 648,. 1 

2148 DISP -U liine-,J, 

2158 DISP "de ";Pt 

2168 WAIT I 

2178 DISP L» 

2188 UhIT I 

2198 REN 

2288 REN ********** 

2218 REN EXTRACTION 

2228 REN ••••••••!> 

2238 REN 

2248 FOR K=l TO X 

2258 Ct=L»tl,P-l] 

2266 DJ=Lt(PtLEN<CI»)) 

2278 REN 

2288 REN •••<•••••<•• 

2298 REN REHPLACEMEN! 
2388 REN •••••<•••••• 

2318 REN 

2328 L«-r,HC2»»l 
2338 P=POS<L«,CI»> 
2348 IF P=8 THEN 2369 
2358 NEXT X 

Suifo page 3 



GALACTIC 



Entrainez-vous seul contre I'ordinateur avant de defier 
un partenaire pour un combat sans merci dans I'es- 
pace intersideral ! 

Manuel et Christophe DURAND 



FOR ZZZ'9 TO 2S8*t 



'T-RNDiNE-iti5CRE£N ? 



3 C0SU8l«0fliC^ [ H r '£EN 0.4,B!C05UB 2088 

$ ci5tiw;vi.|!va.!!p=.e!U.Bi»ei/:i'aini- 
8i SCREENS. 8.0 

a fop itit.o to ioaiPSET'. mi'ON[i«3t8..;« 

T<»M>«08.'J.?:ne: I 




Leasoi isFoiaes - 



,~- ; i': : -E I H<MH*E. HflMND 

tmok: :■■ ".' • ■-■■= : "i=ions 

1993 

? :.E-s. - 4i[>EPS*tt :■ = :;4. :-.:=?.;>--. ;■■:•■ 
I6.12*,«i--E="CR* : '■?. ::.~r.. r -'.?r. :: ••-■■"■ 



-cO 



:L0OTE O.niPPlMT- 



is for r»e io *> i 

•I0-0»1HT'P<ID»5.«V1 

28 P-P«ri_0C~TE JB.cif'CIHT- -1B-B-1N' &N 
D«3<»V21L0CATE [■.8UOL0P8. 1'PBINTpi: pi 

■C0L0R3.6 

n ir ».-?eo 7 hen cotoBe. i:Loc«r£ i7,e,e 

i "1- III : -.i0; .-.■■■-.■.: ' 

25 if « --as -he* fl-aaivi— vi 

26 !F B'22 THE* B-22IV2—V2 

27 IF hU THEN -«Iivi = -vj 

29 IT B: 1 THEN 8-HV2--V2 
38 LOCATE S.rtiPPINTSRf.e ' 

32 IF Ot-*l" THEM 48 

33 COLOR.. 1 1 LOCATE I0,8:PPINTje-UHLOCAT 

e 2',ejppi»Tie-:;iiC0LOP.. i 

40 LOCATE 3S.B:PPIMTGRli I > 

45 IF XI'? THEN GOSUB 388 

46 IF 8t«-l- THEM 38 

47 ir jyl 9 THEN C05UB 488 

58 Ht-INKEVtitF ft*-*' THEN 18 

b6 IF ftl.'A- THEN 78 ELSE IF e*-*P* AND 

8««-2"TMEN iea 

65 COTO 18 

66 • 

67 '•••*•■#•■■•• TIP JQUEcR : •••••■•••• 

70 IF Ul<9 ANO OH-S" THEN 18 ELSE LINE 
'8.H«B*4>-i3!9.A*e*4>.I 

~2 PL- , .'-L2&OMI5005D004SOHIDO' 
73 LlKEt8i*«8*4>-i3I9,«8B*4]}»-l 

88 I- m»B THEN C0L0Pl,3iL0C«TE3S,B:i»TTftB 
1, IibRINTGRI'Ji; iPLAVL2D0REHIREI>0SlL.oD 
F»nl 'iL0:-TE7;.B:::^-uf>J.o:PPINT- *;tATT8 
Bfl. 8i W-M-l: LOCATE Z . 8,9: COLOR. 3: PP!NTn:C 
OLOR. . 1 



as k 

90 GOTC 



111* 



10 





• ••• 


I •• 


♦ , 




• >• 




IF X 






0t="2* THEN 10 EL3E 


INF 


.'304, B«8 




8. 


•8- J), 5 




I8P 


PL«Y 


L2f0»ErIF»5OLSSILAS0- 




185 


LINE 


384 


B«8-4we,fi«3*4>,-: 




It* 


IF A 


E IrlE-l 


COLOR! ,3:lOCATE3.-:- 


:*h 


Li 




fIR* 


'• 


:PL«VL20I36L*iSILflSlLP«' 


LaS004*:LOCh 


FW 


-;COL0R9,e:PfiINT- ■" 


_i ; 


nee 


„: .= 








COLOR,, 1 






















\?tl 












?flfl 












?vt 


'•• 


HP 


ISSAGE 




Iflft 


xp»x 










31ft 


RFTII 










W 












4M 
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2 36THEN Ul=«:y£=8 
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1888 ' 












PRESENTA 


ION 





1885 CLSiLOCATE; 12. ;8, 0: ^TTPB l.UPPIN" 

6*LaCTIC-tPLsV-Ll2C";-L£8HlLt£FaLSeS0H2n 

L28S0L12FALS6S0 

1 010 J*- 'GALACTIC 

1820 FOR XX*4 TO IS STEP 2 

1023 XX1-XX1+1 

1827 IF XX-I8 THEN 1848 

1938 LOCATE 14, XK, = PRINTHICICZ'.XX:: . 1 • 

1833 FOR CCC«8 TQ 201 NEXT 

1848 NEXT:XX1'8 



1043 ' 

1838 FOP 'fS TO il STEP 2 

1833 m-YVl*l 

1837 IF Iflt Th£N 1079 

1868 LOCATE 18, ' C, ptPPINT- ; ; > ;(. 

1863 FOR CCC-8 TO 201NE 1 

1078 NEXTiYil=>8: IF KY«1 THEN 1186 

1875 ATTPB 0.E1COLOP7JLOCATE 72.1S.4JIRPI 

NTGPli2'iL0C-T£ t>7,»IPRlNTCM(2>tATT»B 

i. t« colors 

1090 FOR ba-8 TO 298iPSET'IN-' PN6»T28'.I 

HTIPN0»288>>,7:NEXTt>!Y.l 

1898 ZI-- '-GOTO 1828 

1188 LOCATE I2,18-8:PRIHT- 'W.*) 

■ t i04toREniFA30LA;;o^:f=L-:"-:7-:..~i : 
1118 LOCftTE !2. Itf ftlPRlNVMLACTIC*-*--.' 

•L103 3lLASQFAf"IREDCQ4SILAS0FAHIPEKr 

ii28 o-o-iiiF o«7 then GosuBieeeeiRETyPN 

ELSE 1189 
2SB8 ' 

INITI«LI30TION 

2093 I«l:ZI«-GALAC'lC-:80>T<e.e >-(3«!£,I 

99>.-HB0X<e,9'-<9H2*6. 199>,6 

281B C0L0R3.B1F0R >.■/•* t(> £9 STEP 2 

2829 I«I*UXXI-XX1*1 

2838 LOCATE l,XX,6tPSIItTHIfr*(Z*,XXlylJ 

2846 NEXT:ATTPB 8.8:taLCP 8.4 

2658 LOCATE 2 J . 2. 81 PRINT " 1 jD'JE'JR * : .0 \ ~T 

E 21.3IPPINT-2 JOUEURS' 

2060 OLIN.'E-. It IF 01*" Tnjn 2868 

2876 IF iff THEN LOt-'l IS. 2: PPINTCRI 

'8'tGOTO 2188 

2888 IF Q*--2- then LOCATE IS. 3, *}:PP;'.t; 

Rfte.'iCOTO 2189 

2698 GOTO 2B6B 

2895 ' 

2198 LOC-TE 28,3:PPINT- VITESSE: " 

2118 LOCATE 28.-:PPINT* l TPES RMPISC' 

2128 LOCATE 28,SiPRINT- 2 i-i.'-::i- 

2!38 LOC-TE £8,?:PPIHT' 3 HO/EN ■ 

2148 LOCATE 28,!0;PRINT- 4 LENT * 

2138 LOCfTI 28. Il.etPPINT- 3 TRES LENT • 

2168 K*»lHliEY«iIF Uf' TnEN2168 

2178 IF VAL<Ui>*0 THEM 2168 

£188 LOCATE 28. •>'--. ' Ji ■ . ;■-; c = 1 NTiR(<9 , 

2196 IF Hi-' l- THEN K-0.31KK-O 

2192 IF Mf«'2- THEN K = .T:i!t!*20 

2194 *IF Ufl- THEN K-llKK<*5e 
2196 IF a»-'J- THEN K*].4IKK-13e 

2195 IF H«.-3- THEN K-2.4lKK-e$e 

2288 LOCATE 20. 1 3- A: P»IM* ■'.-r-UMZZ UN NC*B 
RE* 



2285 _0CATE 20. 14: PRIMT ■£■£ J 



. ch:^ 



2218 Vl-IMPUTf'l '= !F VAL'-t ■ *8 THEN '!=' 
-JGOTO 2213 ELSE LOCATE 2;.:5.8:«>PINTv-: 
VI*»INPUT»- 1 >:JF -/»l.<V1I..8 AM[» Kll "B" 
THEN LOCATE £5. 15: PRINT* •iV**' a iV|l> 1 
- = GOT0 2210 ELSE LOCftTE 26,15,BJPR1NTV1I 
:V*-V*.V1- 

::;* fop ui-8 to v«l'vi>:f;i->rni.:ne. - 
2299 ' 

»•* REGLES Oil .'EU ••••• 

2380 XX:«e::«9:CL£iaTTftB:.l:! = i:r»»*MLft 

:*i;-iS0>F<.).0>-'S«U- l»9..-l:B0XC9-e3-( 

8«12*6. 199>. 6 

2310 COLOR3.0:FO» XX-4 TO 20 STE» 2 

2320 l»I*l:X"Xl"XXl-I 

2338 LOCATE I . XX. ft: =P 1 N'-I [*<?!. XX! . 1) 

2348 NEXTtATTPB 9.9'COLOP 8.4 

2343 * 

2338 LOCATE 15.2:FPtHT*viti; SEVE2 ABPTTR 

E LE-:L0CnTE 15.3'PRlNT-v-ISSEAU OUI SE 

TPOUVE'tLOCATE !3.4:PRINT-£N FACE DE VOU 

S.HfllS VOS* 

£332 LOCATE 13. 3'PPIMT-ftCCUS DOIVENt SE 



KflTI t3,ItiP«I*n*J0W<»» 1 •;;»« • 
I! ■ t: = e avEC 'ft** 

117$ L0C1TI 15-iatPB INI : . ■: :»». . 

■:■ .TIRE «VE( 

-■-■£ 13. l5:**-i"t*-. v.'! ,» ; E.. ■:;» 

( i ::-r - c: '-•■ 

2T9B LXaTE 13.20. ?:*»!>.-■-;. p :—E«rt» 
NPPVrEZ* I LOCATE :'■:.; = ;>--.: ^mE TOO 
CMf 

E3W :r INCE i-' " '-EN 23»3 
2488 »ET L »* 
3898 * 

FIN fy'J JEU. 

3883 LOCATE 0. 23. 8t PRINT ■ «-«.-« n 1V *M. 

P*'t :i»»*'.: •.'.-'•'i"-iC0LOR3.»iSOSl*B31»B 

3818 TB-INKEYIHF Tl*" T-EN -_05U9 3lMt 

COTO3010 

3929 IF TI--N- THEN WTO 3 

3938 IF TI--P- then PyN 

3949 IF Tl.-F- T«Et ;LE-Pt:;.7,S3.C:-.OSy0 

IBHt EM 
3B3B COSUB 3ie8:GDT0 3818 

3188 I r M"- THEN 3280 ELSE IF ifr THEN F 
PR Y«l TO 3IC0LOP., liLCiCATE 0.8.8!»»3NTn 
::F0P Ytl«8 TO IS'NEXT-PRIKFt' 'iNEXT ELSE 

"■OR Y»0 TO ^-LOCATE 37.e,0:PPINTx::Pft|N 
T" -IMEXT 
31 18 RETURN 

3290 rO* f. TO 5tC0L0P. . 1 : LOCiTEe.B, 8«P 
RINTUHLOCATE 37. e. 9: PRINTS! :F0R TYUP-B 
TO 18:NE>.T:lC'C~T£ 8.8.8-PPINT- -tL-iCATE 
37.e.8:PPINT- 'ittCXT 
3210 RETURN 
18808 ' 

BUS JOVE 

leos: coro :ene 

1 9867 PLAY * L I 302"':*. i iC'i. I i L-. »3C ■ 

188B3 RETURN 

18818 PLAVL603*>0* 

18828 PLAF'*»4i.ISLAL<i.S0i:S-: . 

19825 PL*v-0;i.:3L-lr;s:,.:3:.OlM!- 

18839 PLAV*03L;3 5CLsLt t iaC-4tC'L61I- 

lt'?33 PLAY'04L19SCL6LA- 

:2Q;* PETURN 

18040 PLAY*L18PL605C>0- 

13643 PLAy04L[3LAL*S0LI3nlL6t0* 

I885B PLAV-03L13LAL6S0L72NI* 

18852 RETURN 

:ee**. PL»vLi3PL*o?t>6- 

10060 B LAY"0«LI3LA 1 .6SOL18»EIL6C'0* 

:^8S3 PLA.'-r.;.;si.-L*S0L13t'0L6PEt* 

18870 PLAY*03LI8SOL6LALIB04DOL6ltEB' 

18873 PLAV04L13SOLELA* 

10976 RETURN 

10838 PLAY-O3-:&PL6REL19F-L6S0L48F«• 

10883 PLAY-L604HI* 

ICJ89J PLA" -0?L13S:C.-iL6REL1803LAL60**>0' 

16893 PLAY -^^Lies^^frA^-inl-: RETURN 

10118 FOP T-ITCi4tiin;-ueiBe87!NE!'T 

19148 GOSUB100]0:GGSuBl8O4A:CCJi'8l60-<3iC 

0SUB18848 

18145 C0SUB1B838 

18146 FOR T»lT02:C0:Li5! l 'r..-t>iE':TjPLHY-O3 
L12SI-:COSUSn088:COiu81 1088: C0SU81 1003 
18138 COSUB 1 8835: GOSUB 1 0049 :C0$U8 10888 
18135 PLAV*03L4SR£iL96HI* 

19388 RETURN 

11000 RLAY-L!e04DOL6£>OL!2t>002DOLI8t>OL6t»0 

L12P004D0*:RETURN 

II 883 PLAY*L1204-/002DOt>004000002[>0*>00400 

O3L18S1L6O4O0L18REL6N1L13FAL6S0L24P-IRET 

URN 



JOYEUSE TRAVERSEE ^ 702 ? 



Chargement par LOAD ALL 

Felicitations! Vous venez d'etre nomme "Pacha" d'un 
contre-torpilleur et votre mission consiste a lui faire 
traverser I'ocean (symbolise par une grille 20 sur 20) 
en partant du point 0.0 pour aboutir au point 20.20. 
Vous avez !e choix de la Vitesse (0, 1 ou 2) et du trajet. 
Vous devez done a chaque fois indiquer votre vitesse V 
etlescoordonneesX.Yqui en resultent (une case de la 
grille en horizontal, vertical ou diagonale par unite de 
vitesse) 

Vous allez rencontrer divers obstacles sur votre route : 

- un sous-marin rode, en se deplacant de facon alea- 
toire, tant qu'il ne vous a pas repere Mais attention! 
Des qu'il vous aura vu. il foncera droit sur vous. vous 
suivra si vous fuyez et vous lancera une torpille s'il est a 
portee ou si vous le ratez en le grenadant. Cette tor- 
pille peut vous rater, vous couler, ou causer une avarie 
qui ralentira votre vitesse; 

- un cyclone se promene egalement de facon alea- 
toire. vous aspirera et vous rejettera n'importe ou si 
vous etes trop pres de lui : une seule solution, fuir ! 

- vous disposez d'un radar assez efficace qui vous 
previendra de leur proxinmte si vous pensez a I'utiliser ; 

- si vous sortez des Nmites de la grille, vous vous 
echouerez; le renflouement vous coutera beaucoup 
d'energie , 

- enfin. votre navire est assez ancien : tout marche au 
fuel a bord : les moteurs (100 ou 300 unites), le radar 
(20 unites), les grenades (200 unites) . Et vous en avez 
une quantite limitee (E vaut 3000 au debut du jeu) Un 
rapide calcul vouspermet devoir que vous risquezfort 
de tomber en panne, surtout si vous allez vite ,. 2 ports 
de ravitaillement. de coordonnees 5,15 et 12,7 vous 
permetlent de refaire le plein (en les accostant). 
Vous verrez qu'il n'est pas toujours facile d'arnver la ou 
Ton veut Bonne chance ! 

Joel VERNET 



Note pour les programmeurs sur 

CASIO FX 702 P 

Lors de I'envol des programmes 

- Indiquer si le programme aete 
sauvegarde avec un LOAD ALL 
ou un LOAD :t n. er si un nom de 
lichler programme a ele utilise 

- Sauvegarder 2 tols les pro- 
grammes 

- Indiouer le magnetophone el 
le reglage utilises 

- Joindre un listing du pro- 
gramme SI vous avez une imprt- 
mante 




LIST BLL 

«« PRfi LIS! 

Vflfi: 26 PR6: 1688 

!«: 1666 STEPS 
18 VRC tllMT 68:PR 

T "JOVEUSE T8HV 

ERSEE..." 
28 E=J888:Q=8.5:R= 

8.5:U=B.5:Z=2 
38 L=IHT HRAKItll 

>«("ANI«18»t|: 

IMHT ((RAKH18 

)t(RAHHI8))»l 
48 PRT "X^iXi" "1 

.y-».y.» » ; » E= » 

IE 
56 H=INT ((RAHU18 

>t!RAKM18)HI 
68 P=INT KRAHW8 

i«(R8HI«18))»l 
78 IF BBS (L-HX5 

THEN 58 
88 IF A8S ("-PX5 

THEN 68 
98 IF EiSlPRT "PAN 

HE'tEND 
95 6S8 588 
188 PRT "VITESSE=8, 

1.0U"!Z;tIKP V 
128 IF V=8 THEN 278 
138 IF V=l;E=E-18»: 

SOTO 168 

148 IF »=2;if z=2;e 

=E-388i60T0 168 
158 PRT "ERREI)R":60 

TO 188 
168 PRT "HOIMLIE P 

OSHIOH" 
178 IKP 'X=",F,"Y=" 

.6 
188 IF ABS (F-X))V 

THIS 218 
198 IF ABS (S-Yj)V 

THEN 218 
288 GOTO 228 
2i8 PP.T "ERRE0R":60 

TO 168 
228 X=F:Y=6 
238 IF K»12ilF Y=7; 

248 [f X=5iIF Y«15l 

E=3888 



245 IF X=28HF »=28 

=PST "BRAVO!!!" 

:EHD 
258 PRT "H="iX!" "I 

"V="1Y1" *!"£=■ 

IE 
278 C=ABS (MHA8S 

(Y-m 

275 IF R--1I1F uA T 

HEK 298 
288 SOTO 388 
298 6S3 668 
388 IF 11=1 THEN 418 
318 IF K18 THEH 39 

8 
328 L=L*5GH (RftHt-Q 

):"*SW (RAHI 

-R) 
338 IF L!8;L=Lt2:D= 

e.4 

348 IF L>l9ll=L-2:« 

=8.6 
358 IF «<8!«="t2:R= 

8.4 
368 IF l»I9l"=H-2tR 

=e.e 

378 IF Ci3:PRT 'T1R 

"-.$010 788 
388 60T0 418 
398 L=USGH (X-L)!" 

=«*S6H (Y-m 
468 SOTO 378 
418 H=H»2tS6N (RAHI 

-S):P=P»2'S6H ( 

RBNt-U) 
428 IF K(81«=Ht4:S= 

8.4 
438 IF mi9SH=H-4:S 

=8.6 
448 IF P'.6;P=Pt4:U= 

8.4 
458 IF P>191P=P-4:U 

=8.8 
468 IF 88? (X-H)tAB 

S (Y-P)i4lX=X-4 

:Y=Y-4tG0T0 463 

462 SOTO 465 

463 PPT "CYCL0HE'X= 
"IX:"Y="!Y 

465 IF BBS (l-NUM 
S <H-P)«1L=U4 
:"=IW 

478 IF X>28!E=E-388 
:X=28:SSB 568 

188 IF X<e;E=E-368: 
3 



X=8:6SB 566 
49B IF Y>28lE=E-388 

:Y=28:6SB 568 
588 IF Y(8lE=E-388: 

Y-B:ESB 568 
518 IF 1)19! IF A=8. 

L=I9 
528 IF L(«:L=B 
536 IF r1>19;lF »=6; 

11=19 
548 IF "(8111=8 
558 6010 98 
568 PRT "ECHOUE K=" 

;x;"Y=";Yi"E="i 

E 
578 RET 
586 IKP "RAt'AR<0UI= 

1,K0H=8)",R 
598 IF P=8lREI 
688 IF R=1!E=E-26:S 

0T0 626 
618 PRT "ERREl)R".60 

TO 589 
628 IF CilBtPRT "SO 

OS "BRIH X="!L1 

"Y="iH 
638 IF ABS (X-H)lBB 

S (Y-Pi;18!PRT 

"CYCLONE X=";N; 

"Y='!FiREl 
648 IF C/16IPRT 'Rl 

EN EH V»E" 
656 PET 
668 IHF -TIBfOUI=I. 

KOM=0'",T 
676 IF T=8!RET 
6S8 IF T=l;E=E-268: 

6010 788 
558 PRT ■EHEK'IM 

TO 669 
789 H=INT (RANM16) 

-2'(A8S (H)»B 

BS (Y-m) 
718 If H)9 THEH 746 
726 IF H=8 THEH 786 
736 IF H'8 THEH 768 
749 IF T=l;PRT "SOU 

S "ARIH COOLE": 

H=l:L=9tr1=e:60T 

418 
756 IF T=8;PRt "HAV 

!PE C0ULE":&0T0 
19 
768 IF T=l;PPT "SOU 

S BARIH HAHtOE" 



778 



IT=8:80T0 788 _f\ 
IF T=8lPPT "HAY V 
IRE ffiN«E":S0T >. • 
418 \T/ 

) IF T=8;2=8:PRT -. Y 
"AVARIE NAVIRE" 
:£0T0 416 

! SOTO 748 




<•< VAS LIST L 

II 

« 26 PRS: 1688 » 
8 

8 =8 P 

E =9 ( 

L = 13 R 

D = 8 

£ =2688 

F =3 

S =2 

H =8 

! =8 



Y =1 



^9 
■ 11 
■■') 
■t 
■- 16 
^9.5 



= 1 



Suite de la page 2 


ProsraMie CHANCE 


N^ 


Version I 


° yi 


1999 ' CHIW 


" S' M 


1818 DELAY 6 


y\ ° L l/L °/~~y^l. 


1928 INTEGER J 


J$\^-K uL/ z+* 


1938 DIM Ll[941,Gtt941,t 


^\>X^ 1 jQ^J^g) 


11941 


\^Mj~U*\^^ 


1848 ON ERROR COTO 1218 


t/'iL-Zz^ ° ^^" 


1858 INPUT -Pro= ? -.PI 


\/ ° 


1969 INPUT "fine i ? -.01 


2369 DISP "est rewlacee 


1978 INPUT "Nouv ' "iNI 


par la Inne'iJ 


1889 EDIT PI 9 REHUHBER 


2378 miT 1 


1,1 


2386 DISP L J 


1898 TR9HSF0RM Pt INTO T 


2399 HAIT 1 


EXT 


2469 PRIHT 1 9997, J . Li 


1198 DSSICH • 1 TO Pt 


2419 NEXT J 


1118 FOP J=l TO 9999 


2428 tlSP 


1128 REPD 1 l,J i Lt 


2438 REPI 


1138 P=POSat,flt> 


2449 REM •••••.•••**•»* 


1148 IF P=9 THEN 1198 


2458 KM TRONSFORrlflTION 


1158 Ct=Lt[|,PMl 




1168 Dt=lt(P»LEH(llt)I 


2478 REM 


1178 Lt=CtlNHDl 


2489 TRBNSFORH Pt INTO 8 


1188 COTO 1138 


ASIC 


1198 PRINT 1 l.J , Lt 


2490 IF ERRH=34 THEN E8I 


1288 NEXT .1 


T M 


1218 TRANSFORM PI INTO P 


2549 IF ERRHI34 THEH EDI 


ASIC 


T -CHBHCE- 


1228 EDIT Pt 


2519 END 


1238 END , 



STAR RAIDE R aP plE« 



CONTEXTE POLITIQUE 

Lors d'un banquet organise en I'honneur de l'accord 
sur ["exportation du minerai de ZIRGONIUM dont I "em- 
pire de TIIRGUIL1S a un besoin vital, le President de la 
Federation terrienne utilisa malencontreusement le 
verre de I'Empereur. Affront benin qui declencha, a la 
surprise des ambassadeurs terriens, la tranche colere 
du Chef TIIRGUILIEN. 

Le lendemain, la Terre recut la declaration de guerre. 
En ces temps pacifiques, la Federation avait en partie 
abandonne la construction d'engins spatiaux prevue 
pour la bataille. Pourtant... 

En tant que pilote. vous avez ete appele par le Conseil 
Supreme qui vous a nomme "Defenseur de I'Huma- 
nite" 

Seul, vous serez seul contre I'armada tiirguilienne : il ne 
reste qu'un pilote de guerre, vous, et un vaisseau 
monoplace de type "ENTERPRISE" du temps de la 
guerre contre les KLINGONS. 

La Federation se doit d'etre magnanime. elle vous 
laisse le mode d'emploi du vaisseau. 



Vaisseau Enterprise 
Equipement : 
armement: 

- 2 phasers : bouton de la poignee de jeu 0. lis vous 
permettront d'abattre les vaisseaux places dans votre 
mire mais, non seulement ils vous coiiteront une quan- 
tity non negligeabled'energie, ilsexigerontapres cha- 
que salve un temps de recharge et plusieurs tirs pour 
en finir avec un adversaire. 

- 3 bombes: bouton de la poignee de jeu 1. Elles 
detruisent tout ce qui se trouve dans votre champ de 
visualisation, 
defense: 

- radar: vous saurez immediatement ou se trouve le 
vaisseau ennemi le plus proche pour deplacer votre • specificities Applesoft 
mire en consequence (grace aux 2 molettes). 

- bouclier : il resistera aux tirs adverses tant qu'il est x et y 
alimente en energie". 



• DEROULEMENT DU JEU Au debut. I'ordinateur de bOfll 

demande si vous vouie; alimenter voire bouc'ier (un bon cd 

faites-le!). 

Ensuite. un signal sonore el lumineux vous mdiquera t,i position de 

I'ennemi II peut etre de 2 types : 

• Amiral muni d'un bouclief puissant (4 tirs pour i.ibattre) et 
d'un laser performant et tres rapide 

• Escorteur moms puissant et moms armef 2 tirs pour I'aballre). 
Dans le deroulement du jeu, un bip Ires aigu signale que vous avez 
louche un adversaire. un autre moms aigu que votre phaser est re- 
charge. 

Voussavezqu'a partirdecetmslanl.ledestinde lapianete Tern 
entre vos mams 

• TRANSCRIPTION DU PROGRAMME 

Tape; la liste d'octets adresses de S 4000 a S 4300. c'est la table des 
formes (fastidieux!. .). 

Revenez en basic et sauvegardez-la sur disquetie (B save AL- 
PHAOVNI. AS 4000, LS 300) 
Tapez le programme basic. 

• MODIFICA TION S EVENTUELLES 

Creez vos propres formes (2 suftiront) grace au programme de crea- 
tion de forme de I'HEBDOGICIEL n 4 



- DRAW I At X ; Y : trace une forme numerotee I aux coordonnees 



Le Conseil Supreme est sur de votre reussite et il vous 
souhaite Bonne Chasse. 



La FEDERATION 



TABLE DES FORMES 
-ALPHA OVNI- 



120) 

:£N = 9000 

RND I 

RND ( 



[Nl 



INT 



I to : 



2) * 10 
•= 0: NE; 



: 00 I 



OO f 



4oob- ac 1 

1010- SD < 



•JO IB- D£ 00 Et. 

4020- F2 OO F9 

4028- 19 01 24 

4030- 44 01 40 

4038- 67 01 6C 

4040- 86 01 90 

404S- B5 01 CO 

4050- 

4058 

4060 

4068 

4070 

4078 

40BO- 



OO A6 00 Bl i 
00 C9 00 01 i 
00 EA 00 EF i 
OO 07 < 

2E 01 

58 Ol 



150 NV = 
155 VA = 
160 Al ■ 



73 O 
9D O 
EC 



INT 



RND 



A9 ( 



39 02 43 



10- 32 22 20 2' 



40A0- 
40A8- 
40B0- 
40BB- 
40CO- 
40CB- 

40DB- 
40E0- 
40EB- 
40FO- 
40F8- 



4140- OC 



36 06 
: BE 20 
S E7 OC 
: IS 37 
: 3B 2E 
I 60 1C 
: OD 16 
) 92 IC 
) 92 OC 
) 3C 1C 
' OD OD 
1 3F 77 
t 00 3F 
i 00 D2 
> OC 25 
: OE 2D 
: 96 31 
I 3F 17 
» 25 OC 
I OC 24 
: 36 36 
2D FS 
00 AD 
OC 35 



£7 64 2D 
3F 04 00 
16 BE 05 
OC OC OC 
B5 3F 3F 
OC 1C IC 



02 21 02 2D t 
02 4F 02 SB ( 
02 7C 02 87 ( 
02 AA 02 B3 < 

02 5B 49 02 ( 

:c oo oa : 

OO 3fl 67 3C ( 

IE 2E IE FE ; 

25 13 FS AB 1 

77 29 00 OC C 

96 17 4D 2E : 

BF AE 17 76 t 

07 00 OB 24 C 
IC 24 OC OC C 
OC 24 IC IC C 
4C 6E IE 16 2 
DE 07 00 20 E 
3! 05 00 89 F 
4C 11 33 OO 1 
63 OC OC OC C 
IC IF 17 36 ; 

OC 24 07 00 S 

17 2D 04 OO 6 

95 BA 2E 2D 1 

ZC 3F B7 92 1 

00 3A 27 OC C 

F5 3E 00 38 7 

AA 36 IE 3F 1 

F6 3F IC 24 2 

00 OC OC 3C 2 

03 00 E7 64 2 
F6 3F !C 2C C 
IS 36 77 IE 1 

08 16 06 00 
00 91 E2 IC 1 
06 00 38 67 B 

04 OO 93 62 
IC 06 



190 IF TV1AL1 - THEN TV(AL) - 

60: NEXT : GOTO 210 
200 GOTD 180 
210 FOR I = 1 TO NV 
220 IF TV(I> < > 60 THEN TV ( I > 

61 
230 NEXT 
300 GOSUB 10000 

900 FOR NB = 1 TO NV 

901 EN» = STR» <EN):NE ■ 

(EN* J 

902 VTAB 22: HTAB 2; PRINT BD; " 

": VTAB 22: HTAB 
33: PRINT EN; SPC I NE > 

903 VTAB 23: HTAB B: PRINT "IRAN 
SFERT D'ENERGIE CO/1 



LEN 



GET 




PRINT " 

> "O" THEN 

INPUT "ENER 
: " ; E 1 



4188- !C 3F 17 95 Oft ; 



4190- SO 
4193- 36 
41A0- 09 
41A8- OO 



OE 2D 

24 67 

3F 24 

3F 27 

24 24 



24 



3F 17 " 



41CB- 2D IS 3E 
41DO- 24 24 2D 
4 IDS- 00 39 B7 



23 00 3A 37 < 

E4 IC IE IE : 

2C 2D 15 &E I 

2C 00 99 F2 i 

OC 2D 15 06 < 

3F 27 24 21 : 

00 39 B7 3.A : 

2D 96 92 3F < 

1 A 24 24 24 : 

1 1 35 :e SF : 

2D 33 00 2B : 

36 36 36 4D : 



4IFB- 
4200- 
4208- 
4210- 
42IB- 
4220- 
422S- 
4230- 
4238- 

4240- 

424B- 
4 250 - 
425B- 
4260- 
426B- 
4270- 
427B- 
4280- 



2D 06 00 

24 3C OO 

24 24 6C 

B9 12 3F 

00 f.-i IC 

24 24 BC 

i i 

00 92 E7 

76 56 17 

-F 36 2E 



E7 64 2D 

IC 04 00 

92 33 2E 

6C 09 36 3i 



42BB- IC 
4290- 06 ' 
429B- 31 
42A0- FC 
42A9- 
I2B0- 
42DB- 

42C0- 

42LB- 
42D0- 
42DB- 
42E0- 
47150- 
42FO- 
• 2FQ- 



i...j .ji.i ir. 



S r 4 •' 

2C AD 06 

IC AD 36 

-.! ".7 17 

36 OE 3F 

36 2E 2D 



.•_-. oe 15 df ; 

09 IE IE 06 1 

3F 24 24 24 t 

36 36 36 4D : 

06 00 OE 56 : 

33 2E IE 36 : 

24 24 OC 2D 1 

OS 00 65 IC : 

II S 00 I 

20 24 64 2D 1 

77 13 IS DF : 

2D 15 HE 06 < 

13 97 15 F6 " 

24 IF 2B 2D f 

00 92 E7 24 ; 

BE 05 00 1 

24 4D 31 36 1 

IE 24 24 24 ' 

33 07 'JO OC ( 

16 17 6E 09 E 

IC 6C 09 F6 [ 

OC OC 3C TF ; 

2D 23 00 3F il 

97 52 IF IE : 

id : d w . s i 

IC if ic ic : 

00 *■' 20 29 : 

56 '-6 IE 67 ; 

. . . 

;■'-. rn ?a 64 i 

64 20 AD 06 ' 



R* 

904 VTAB 23: HTAB 1: 

'■: 1FR» < 
910 
907 VTAB 23: HTAB 1: 
GtE AU BOUCLIER 

905 IF El > EN * BO 

909 E2 = EN * BO: BO ■ Eli EN ■ 

El 

910 FO = INT ( RND <1) » 4) 
912 X - INT ( RND <1) • 600) - 2 

00: V = INT < RND <1> • 400) 
- 200 
920 H = FO:V = H ^ 

930 IF TV(NB) = 60 THEN DF = 4:T 
P = 20: GOTO 932 

931 DF = 2jTP = SO 

932 EN* = STR» (EN):NE = 4 - LEN 

(EN»I 
935 VTAB 22: HIAB 35: PRINT EN: SPC I 

NEJi VTAB 22: HTAB 2: PRINT 

BOS " 
937 VTAB 23: PRINT SPC( 37) 
93B VTAB 23: HTAB 16: PRINT "PIL 

OTE CLASSE '•:F0 
940 HPLOT 129,79 TO 134,79: HPLOT 

144,79 TO 149.79 
94S HPLOT 139.69 TO 1-39.74: HPLDT 

139, B4 TO 139,89 
950 REM 
1000 IF X > 12 AND X < 266 AND Y 

. 10 AND Y < 14B THEN 1 1 10 
1005 IF X ' 12 THEN FOR I = 1 TO 

4: HPLOT 1.75 TO 1,87: NEXT 

: HCOLOft- 0: FOR I ■ 1 TO 4: 
HPLOT 1,73 TO 1.83: NEXT : HCOLDRi 
1010 IF X - 266 THEN FOR I = 27 

5 TO 27S: HPLOT 1,75 TO 1,83 

i NEXT t HCOLOR= O: FOR I = 

275 TO 27B: HPLOT 1,75 TO I, 

83: NEXT : HC0LOR= 3 
1013 CV » CV * 1 
1020 IF ¥ '. 10 THEN FOR I - 1 TO 

4: HPLOT 135,1 TO 143.1: NE/I 

: HCOLOR^ O: FOR I = 1 TO 4: 
HPLOT 135,1 TO 143.1: NEXT 

: HCOL0R= 3 
' 1030 IF Y :■ 149 THEN FOR I = 15 

5 TO 158: HPLDT 135. I TO 143 

,1: NEXT : HCOLQR" 0: FOR I - 

155 TO 15B: HPLDT 133,1 TO I 

43, I i NEXT : HCOLOR" 3 
1010 POKE 76B.240: POKE 769.20: CALL 

770 
1050 LH m EH - I 

lOSS IF" EM ■ '.' rHEN [000 

1060 IF PEEK ( - 162B7) • 127 AND 

M 1 I THEN 2000 
106S IF PEEK ( - 162B6J 127 AND 

rin THEN *< 

1070 H"N. Il IFM= II AND EN 
' 200 THEN VTAB 22: HTAB III PRINT 

"PRET"I POKE 766. 150: MJK| ' 

69. 10: CALL 770 
1080 HI - - < PDL <1> / 12. "■ 

10) tVl <• PDL (O) / 12.73 - 

10 
1003 CI - CI + 11 IF CI •■! nil u 

M - - MiAl - INT i RND (I ) 

- SOI iCI - O 

10B6 C2 - C2 • li II C2 ■- rHEN 
V - - VtAV - INT ( PHD (I) 






: HPLOT 129.79 TO 134.79: HPLOT 

144,79 TO 149.79 
i HPLOT 139.69 TO 139,74: HPLUT 

139,84 TO 139, B9 
I H - M + 1: IF M = 1 1 AND EN > 

200 THEN VTAB 22: HTA& 11) PR INI 

"PRET": POKE 76B. ISO: POKE 7 

69.10I CALL 770 
i CV » CV + 1: IF CV > TP THEN 

1700 
1 HI = - < PDL (1) / 12.75 - 

10):V1 - PDL <0> / 12.75 - 



HPLOT XI. Yl ToX2,Y2: trace une ligne du point (XI, Y1) au point 
(X2.Y2, 

- PDL (0). PDL(l) : molette des paddies (de a 255) 

- PEEK (-16287) au (-16286) bouton des paddles 

- X DRAW I At X Y : trace une forme numerotee a la couleur comple- 
mentaire de celle precisee dans HCOLOR. 

Les POKES sontsurtoutrelatilsauxeftetssonoreset graphiques.ie 
programme peut quand meme elre facilement adapte sur votre 
machine- 
Guy MUNEROL 



54 TO 274.5 TO 5.5 
3110 HPLOT 134.5 TO 134, u TO 14. 

,0 TO 144.5 
3120 HPLOT 134,154 TO 134.159 i( 

144, 139 TO 144,134 
3130 HPLOT 5.B4 TO O.B4 TO 0.74 

5,74 
HPLOT 274. B4 TO 279,84 TO \ 



79, 



TO : 



IF PEEK ( 


- 162B7) > 127 AND 


M , I 1 THEN 


2000 




IF PEEK ( 


- 16286) > 127 AND 


BO THEN 


400O 




EN = EN - 1 






IF EN < - 


THEN 


3000 


CI = CI + 1 


IF CI 


> Al THEN 


H = - H:A1 


= INT 


( RND (1) 


• SO): CI ■ 







C2 ■ C2 + 1 


IF C2 


> A2 THEN 


V = - V:A2 


= INT 


C RND 11) 


• 50) :C2 = 







(DRAW TV(NB) AT X 


¥:X = X + 


H * H1:Y - 




VI: GOTO 


950 






HPLOT X,¥ 


* 6 TO 


39. 153: HPLOT 


X,Y + 6 TO 


138.153 




BO = BO - ( 


I NT ( RND ( 1 ) • 


50) * 80) 






HTAB 2: VTAB 22: PRINT BO;" 



1 FDR I = 30 TO lO STEP - ll 
POKE 766,1: POKE 769.2: CALL 

770: NEXT 
i HCOLOR= 0:CV = 
i HPLOT X,Y • 6 TO 139,153: HPLOT 

■i . V • 6 10 138, 133 
, IF BO ^ O THEN 3000 
i HCOL0R= 3: GOTO 1000 
' REM 
i IF EN < lOO THEN VTAB 221 HTrtB 

11: FLASH : PRINT "VIDE": NORMAL 

: GOTO 950 
i HPLOT 6,151 TO 139.79: HPLQI 

273,131 TO 139,79: HPLOT 7.1 

53 TO 139.79: HPLOT 272.153 TO 



.2 OR X .■ = 266 OR 

Y < - 10 OR Y / = 14B THEN 

3160 
31S0 DRAM TV(NB) AT X.Y 
3160 HPLOT 129.79 TO 134.79: HPLOT 

144.79 TO 149.79 
3170 HF'LOT 139.69 TO 139,74: HPL01 

139.64 TO 139,89 
3175 FOR I - 1 TO IS: P01 E 76B.9 

0: POKE 769.100: CALL 770: FUR 

J = 1 TO 120: NEXT : NEXT 
SI90 FOR I = 10 TO 2SS: POKE 768 

.1: POKE 769.5: CALL 770: NEXT 

3200 FOR I » I TO 20: VTAB I: INVERSE 
: PRINT SPC( 401 : NEXT : NORMAL 
: TEXT 

3203 HCOLOR= 3 

3207 CALL 62450 

3210 POKE 230.32: FOR I = 1 TO 1 
OO: HPLOT INI ( RND II! • 2 
79>, INT i ftND (1) • 190): NEXT 

3220 POKE 49236.0: POKE 49234,0: 
POKE 49239.0: P0» E 49232, O 

3222 FOR I " 1 ID 2000: NEXT 

3223 PX = 7:PY = IS 

3230 X =■ 20:Y = IO:A* ■> "ET V01LA 

I C'EST LA FIN." 
3240 GOSUB 10510 
3230 X = 20: Y = 25: A* ■ "LE FEU D 

■OXIGENE RESTANT VOUS ": G05UB 

10310 
3260 X " 3sY ■ 40:A» ■ "PERMETTJW 

DE SURVIVRE AU PLUS "t 60SU8 

10510 
3270 X - 3:Y =■ 35: A» = "MMM. . ATI 

ENDEZ... OH' OUAND MEME ": GOSUB 

10510 
32B0 X = 3:Y «■ 70:A* = "TROIS HEU 

RES. ADIEU DONC": GOSUB 103 




2033 


139,79 
FOR [ ■ 10 TO 30: POI'E 74B. 
1: POKE 769,3: CALL 770i NEXT 


3300 
3310 

siia 


NEXT 

TEXT : HOME 

SPEEDs ISO 


2060 


HPLOT 10.153 TO 139.79: HPLOT 
269, 153 TO 139,7« 


3320 


POKE 49168. O: PRINT "PAR CH 
ANCE VOUS AVE? ETE RECI 1 
PAR": PRINT : PRINT "UNE NAV 


2070 


EN = EN - 100: VTAB 22: HTAB 


3330 


ETTE." 
PRINT : PRINT "LA FEDEPAIKJ 


20SO 
20B3 


HCOLOR= 
M O: VTAB 22: HTAB 11: PRINT 




N VOUS DONNE LE CHOIX:": PRINT 
: PRINT "PARTIR A LA RET RAH 
RE OU REPAR1 IF. EN' 


2090 

2100 


HPLOT 6.151 TO 139.79: HPLOT 
273,151 TO 139,79: HPLOT 7,1 
S3 TO 139,79: HPLOT 272.153 10 
139,79 

HPLOT 10.153 TO 179,79: HPLOT 
269.153 TO 139,79: HCOLOR- 3 


3335 

3340 

3345 
3360 


PRINT 

PRINT "MISSION.": PRItft : PP.IWI 
I PRINT "ON APRETE ? "Il 1 
R* 

SPEEO= 2S3 

IF ft* •• "0" THEN 3400 

GQTU 100 


2110 


IF X > 134 AND X '. 144 AND 

Y -■ 76 AND Y ' B2 THEN OF * 


3400 

4000 


END 

FOR 1 ■* I TO 5 




DF - 1: POKE 768,10: POKE 76 


4010 


TEXT t FOR J • ! TO lOOl Nl ' 1 



9. 10: CALL 770 
IF DF .: THEN 1000 
FOR I = 1 TO 30 
AN - RND (1) ■ 6.2B:XI = COS 
(AN) • RND (1) • 30:Y1 - SIN 
(AN) ■ RND (1) • 30 
HPLOT X.Y TO X) * X.Y1 * Y 
NEXT 



4015 PQf E 492 36.": I Dl I 192 "..■■: 

POKE 49239.0: POKE MS ,0 
4017 FOR J - 1 TO lOO: "..1 
4020 NEXT 
4030 60 - BO - 1: HTAB 20: VTAB 3 

2i PRINT BO 
4030 IF X J 12 AND X . 266 AND V 



2171 


FOR I - X - 30 TO X + 30 


10 AND V 148 IHLN XDRAW 


2172 


HPLOT 129.79 TO 134.79: HPL01 


TVINB) AT X.V: GOTO 21B0 




144.79 TO 149.79 


4060 GOTO 1000 


2173 


HPLOT 139,69 TO 139,74: HPLOT 


10000 HGR 




139, B4 TO 1 39. U9 


10010 HCOLOR- 3 


2176 


HCOLOR- Oi HPLOT I.Y - SO TO 


10020 HPLOT 3,3 TO 5, lf.4 la 274, 




1,Y * 30| HCOLOR" Il Nl (1 


134 TO 274.3 TO 3.3 


2160 


VA » VA - ll VTAB 22: HTAB 2 


10030 HPLOT 134,3 TO 134.0 TO 14 




8) PRINT VAl " " 


4,0 1(1 1-14,5 


2190 


NEXT 


10040 HPLOT 134.134 TO 134.139 TO 


22O0 


TEXT : HOME 1 PRINT * FELIC 


i-i*i, 199 to 1 ■!'.. 134 




ITATION, LA MISSION EST UN": 


1003O HPLOT 3,04 10 O.HI TU 0,74 




PR INI : PRIN'i "SUCCES." 


TO 3.74 


2210 


GOTO 3330 


10060 HPLOT 274, H* TO 279. B4 TO 




HOJHB : HGR 


279,74 TU 274, '■! 


soos 


VTAB 21: HTAB 13: FLASH : PRIN1 


10070 HOME 




" ALERTE ROUGE " : VTAh 2": HTAB 


I0O73 FOR 1 - 1 TO 20 1 VTAH I: 




9i PRINT " Mil mi 11 VAI88I 


INVERSE 1 PftlNl BPC( 'V'" : ni 




AU ": NORMAL 




3010 


HCOLOR- 3: HPLOT iJ.O: CALL 


100B0 VTAT- 21l HT.'ll. 1: INVCRAfi 1 




062 


PRINT "BOUCLIfR"! NORHAI 


3020 


HCOLOR- 




[IOC 


HPLOT 3.3 TO 3.134 TO 274,1 


Suite page 5 



OTHELLO 



Ce jeu bien connu consiste, sur la surface d'une grille 
de 8 x 8 cases, a capturer le plus possible de pions 
adverses en alignant 2 de vos pions de part et d'autre 
d'une ligne de pions de 1'adversaire. (Pour plus de 
precisions, reportez-vous a la page 3 du numero 1 
d'HEBDOGICIEL) 



UTILISATION DU PROGRAMME 

Aulancementdujeu lei i rami . lusdemandedecru 
piono En lonctiort de voire hume ir.vouscl 

mr lea touches I ou2du clavier 
Ceci etanl (all, I'ofdinaleuf vous sollicite a nouveau avec touie la 
COllMolSie requise. pour sa voir si voussouhaitezounoncomniencer 
la pariie Appuye; selon le ca9 sur las touches O' ou M 
La par tie commence aussilol Le programme voussignale. en haul a 
gauche de lecran. si voire tour de jouer se presenie Dans le cas 
conlraire, il vous indique qu'il est absorbe dans ses refie/ions 
Pour poser un pion, il vous suHit simplement de taper au clavier les 
2 coordonnees de la case dans laquelle vous souhailez poser voire 
pion Vous pouve2 indilleremmenl donner ces coordonnees en 
commencant par la lei I re ou par le chiffre. et it est inutile dappuyer 
sur RETURN Si voire coup est illegal, lordmaleur vous le signale et 



allend une nou^elle entree 

Si vous - ; . ■ : 

pour; ■ . 'vol 

. .. ...... ... 

coordonnee 

Lordinateur lient lescoreajou' en perms ' ■ 

a chaque coup le gam realise par ce coup 

En fin de partie. le score final 5 all 

d engager une nouve'le partie 

MISE EN MEMOIRE DU PROGRAV 

Pout gagner du temps lorsde la frappe. il est toul a la ■ . ~ ■ 
miner loutes les lignes de REM 

J.-P LALEVEE 




COMMODORE 64 



330 

-St-) SET! •••• MODIF ESS •' 

656 GK-1 If U-l THEN Vt&'-A I 

iou FOR K-0 TO X STEP V 

era es<k.*jo j-j*i 

Sb8 HEX! 1 

898 P-P.J-1 J=0 

900 RETURN 



■ REM EFFRCErtENT TEXTE 



> cut 

) POKE 33288. b PO*E 33281,12 

) DIM DCS; REM DIRECTIONS 

> FOP *■! TO 6 READ D<0> NEXT 
i wta -10.-9.1.11.10.9.-1.-11 

) D'li.'j REN ftDKESSE ECRflM 
) CQ-54272 REM COULEUP EtRrtN 
) £l = ~*flr RE" POSITION TEXTE 
i EF*-B*«' 

.1 . ■ ■ •••! I ^ »ll •;■■ :■_: -.:•■'. .-=.:■ - ,'i; 

) TJ-2 Tn»2 RrEM SCORE DE DEfwRT 

> OIK EXt99>.i;i'.9).v<l5>,W<l5> 

i DRIB 9. 7,8. 8. 8.8. 7.9. 7.3.6.6. 6. £.5. 7. 3. 6. 9, 8. 8. 9. 6,8. 8, 6, 8, 1,2.8. 6. 8 

» DATA 8,6.3-2. 1. 8,6.8.8.6, 9. 3. b. ft, o. 'a- 7, 5- 6. 6. 6. 6. 5,?. 9. 7. 8, 8. 9,8, 7. 9 

> 

) REM-"" P£l*T_13i*0£ DE EX ******** 

* FOB Y-l TO 8 FOR »1 TO 3 

J k-Er.li V.' r*lv-* ■ 

i NEXT X,Y 



910 

928 REM « 



I SUITE r 



940 PEtl ..... PISTE 3 HOPIZ ».«♦««*»»*. 

950 D*=R10HTHX»,I) 

968 IF X>18 FulD V.'.ai THEN 1158 

$78 IF D*> H 6- THEN 1028 

9Sw v=x-i if e^-.vj>2 then e;:<y»-5 

>:-a IF EX<V> = l I HEM 1820 

1030 IF EXOMX THEN IF EX(Y)>2 HHD EKtX+2J>l THEN EZ<V 

1810 IF EZ<X*2) = l THEN EM<Y(-8 

1828 IF Dt<*3" THEN 1878 

1638 v=x-i if e;-:(>:-i»2 then EXtx-:>»3 

1848 IF EX<V>-I THEN 1878 

1858 IF EX(X+!>=2 THEM IF EX<V)>2 RMD EX< 

I860 IF £X<X-2>«! THEN E/1(V)=8 

1873 IF ;-:0:i OR XOlS THEN 1188 

10F30 ¥=X*ie IF E*<Vj>2 THEM EX(Y>-3 

1898 IF E-i<X'2C> = l FM EXCY>XI THEN EX(v>=8-G0T0 1350 

1108 IF xosi OR f;;,5, ThEn 1158 

ma v-x-ie if ey.'.'*y>i then ex<v>=5 

1128 IF K<X-28> = 1 ftilD E/KV»2 THE!; E;;',v.»3 GOTO 135$ 



. THEN ESO 



1680 IF VH.VK.3 THEN V»V-! IF Y>88 THEN :68* 

1610 IF V..B2 THE-i i'. 

1628 Y-79 

i6ia if Exmo T-eii r-v-ie :f y.e 

1648 IF Vj2S THEM £X<Vt«9 

1650 OOSUB 450 

:-.-:■„■■: ■ ■..-.. 

1670 

1680 REM •••••••• DEBUT JEU 4».»...... 

1690 G0SU8 490 

1788 FRlHT E*,-(KjISE C0l-''wE l JR '.M»l *»»2' ■«". 

1718 COS! IB 2318 REn RCQUI51TI0N REPCMSE 

1728 ON Vffl.(8fj OOTU 1748,173V uuTU 1710 

1730 e;:'.44^.2 ex<33>'2 e;:(45j-i e;:'.54)>: ciu^'wr cn2--m»* 

1740 PRINT EF*,8«.'V0US C0t««NCE2 'IT. 

1758 GO-sUis i3I3 RE" rCuuISUlON REPONSE 

1760 ON ftBS(FSttR*J-77> GOTO 2800,1888 GOTO 1738 
-9 GOTO 1828 1770 

;■■;,' REn •»•■■ fin DE partie •**••••••• 

1790 PRIHT Bf.'FIN Du J£U -. 

1688 IF TJ>TH THEN PRINT-»VOUS GflO*C2 - .TJ. '* FT.TH GOTO 1830 

1818 IF TH>TJ THEM PRINT'* JE 6R0NE'. TH, *« fl", TJ GOIO 1330 

=9 GOTO 1078 1826 PRINT" I WITCH NUL'.TJ.'II fl'.Trt 

1830 PRINT ?*.-«•» UNE FBJTRE PftRTIE 'IT. 

1340 DOSUB 2310 REfl hCCUISITION REPONSE 

1858 ON HBSlK5X(R»)-77» GOTO 2290.170 GOTO 18*8 



1978 REM I 



> LE JOUEUR JOUE < 



IKDEF G H 



1140 



4 38 : :- .= ': 



SEH *+*"♦ PISTE 3 VERTIC "*.». 
IF HI>"1" FIND Q*< - 8- THEN 1358 
IF XJ68 THEN 1278 



I 0-0 



> DE JOUER 



-"-.*+ DIREC BftS • 



GOTO 1698 






PIONS 


PRINT BI.-MHT.'r. 




-:= ■-:■■ -:■ •.■; itEP :i 


FOR X 


a-x*v 




IF E*'.0->2 THEN PRINT" 


»r. o 


print cuextm i . 




NEXI A 




PRINT PRINT-S-.-ir. 





1210 
1228 
1238 
1240 
1230 



3 pr-jnt ?s.-w*QLs -.Tj.-iirnoi -,in,"ir - 

J IF TJ-Tn*64 OR TJ"8 OR Tt1=0 THEN 1798 

J IF ;j-T,1<L56 IHEN 638 

i FOR Y-I8 TO 80 STEP 10 FOR X-] TO 3 

J IF EX<V*X»2 THEN E^tY»X>-9 

t NEXT X.Y 

) PRINT EF* 

,' PE -1 .--- 

) 

. cj^ **■■•■..* COUP LEOflL? «•••*••#• 

) IF EZ<X><3 ThGH 778 

J 0K»9 P=9 J=8 

) FOR H*l TO 3 0-X 

1 IF EXi&»D<r.-->«D THEN 0"&»D<M> GOTO 788 

EN : ; EJJ<O+IK»t»-J0 THEN VS-D'.N/ GQiUB t 
} NEXT N 



i BEH » VERDICT .iOUEUR »•••••« 

> if jo-2 then 800 

;^imw,p,-|i 
rj'w-p-i Tn-.rn-p goto 93« 
i PRINT".. .IMPOSSIBLE '- GOTO 1888 



798 REM • '.EPDM" :;pi>;n£ • • 

888 IF U»0 TmEn 2tse 

918 IF 0r.=* THE:( i&4B 

828 IF n^0 THEM V(Rj-X tl(ft/»rt R»P*1 GOTO 2848 



IF EX<YJ>2 THEM EXCYJ-3 

IF EZ(Y»=I THEN 1270 

IF X*28<99 THEN IF EK(X*28j.I THEH EK<Yj-8 

IF X<31 THEH 1350 

IF EXtVX THEH IF E2<X-10i>2 TMEN IF EX<X-28)>1 THEN 

REB ttt+r+tt DIREC HFiUT "-♦"""* 
1270 V*X-10 

1290 IF £X<V»2 THEH £2<Y>-5 
1290 IF E^tV^-1 THEN 1358 

1380 IF X-29>a THEN IF EX<X-28>»1 THEH EJivy^.3 
1310 IF M>68 THEN 1338 

1328 IF EX'.yj-2 THEN IF EX(X*10»2 THEH IF EK<X+28»1 THEN 
1330 ■ 

1348 REM ***»"*■» PISTE 2 ***** !■< 

1350 

1368 REH WICH OCCUPE I COIN 

1370 IF EX<11>02 THEH 1448 

1398 Y=12 IF EX(22J>2 THEN E>.'.22>»7 

1398 IF EX(V><3 THEN v=y.l IF K|S THEN 1398 

1488 IF VC17 THEH EX(V>-9 

1418 V=21 

1420 IF E3i(V><3 THEH V-Y.I8 IF Y<91 ThEr. 1428 

1438 IF Y<71 IMEII E7.'.Y/-9 

1440 IF Em8>C>2 THEH 1518 

1450 V"17 IF EZ(27J>2 THEN EX(27)"7 

1468 IF EX<V>0 THEH Y-Y-l IF Y>18 INEI. 14o8 

1478 IF V>12 THEH EX<Y)«9 

1480 V-29 

1498 IF E7.<V>C3 THEH Y=Y*10 IF WCS3 THEM 1490 

1588 IF Y-C70 THEN E«<Y>-9 

1510 IF E<81)02 Then 1368 

1328 Y*82 IF EZ(72>J2 THEH EK<72>=7 

1338 IF EJi<V?C3 THE!! Y»Y*1 IF Y'.69 THEN 1530 

1340 IF V<B7 THEN EM(V>"9 

1358 V-71 

1568 IF EZ(V>'.3 THEH V-V-18 IF V>] THEN 1563 

1378 IF Y>21 THEN E!i(Y>-9 

1590 IF EX'.99><>2 THEN 1630 

1599 V-87IF EK<77*>2 TmEM EXt77>-7 



) OCSUB 2318 REn RCOUISITION REPONSE 

) IF V(8 TMEN IF R*>V HMD R»C"9" THEN f-vf^l R* i PR I N T R*. 

3 IF X-0 THEN IF «>-«" HND RK'l* THEN X>HSC<RI'-64 PPINT 6 

) IF Y<0 OR x.e THEN 1910 

) X-V»10tXX*"SI&HTIi.6IR»vXj.2/ 

> IF X<2 THEN GOTO 2000 

) GOTO 678 



■RJGHT*lSTRi(X) Z' 90TO cm 




1998 REM ••*•*• nftCHlME JOUE »«i 

2080 JO-2 HD-1 
EZ(X-10)-9 2018 PRINT B*;'l« MO I LE JOUER 

2020 ft-0 U-l 3-j 

2030 FOR X'-ll TO 63 IF Ex(X)-S ' 

2040 NEXT X 

2050 IF TOO THEN 2108 

2860 S-i-l IF SO THEN U-0 GOTO 1890 

2870 0K"8 GOTO 2830 

2868 -• 
EX(X*19>"9 2090 REM ••••• CHOIX GH1N NfiXI ••• 

2188 S-0 FOR u-0 TO R-I 

2110 IF k\0»S THEH S=U(0> X«V<0> 0OT0 2130 

2120 IF U(0)-S HMD IHTC2»RND< 1 > .-1 THEN s*H'U, >.-V.u- 

2130 NEXT 

2140 XI>RlGHItiSTRIlX}.2> 

2150 PRINT EFtJBI.-JE JOUE 3a ■ .LEf Tn./i. 1 , . i.hfi -r L , pi,-.m[i . .. 

2160 U>0 GOTO 688 

2179 

2180 PRINT -G"IN la-F-ll ■ 

2198 TM-TM«Ptl TJ-TJ-P 

2208 XX"D*VHL<LEFTft>;t.lii»eO*vHL.R[G"Tl' C»,l)>« 

2210 POKE XX*C0.I HMD HSCILtf tt\i.Hii. 1 >} 

2220 FOR 0-1 TO 3 

•«:^ [ --.>f. >l>:. «.-..: <t;in 'li...... i , , 

2248 FOR R-l TO 90 NEXT R 

2230 POKE XX. PSCU1lDI'.L*i2/. i.lit-lti 

2260 FOR R*l Tu 9u HEXT R 

2270 HEXT 

2290 00 10 1658 

2290 END 

2308 RETT >llini) S/P GET • ■«•■»• 

2310 POKE 204.0 POKE 198.8 Uril I 198,1 GET Rf POKE 204.1 

2320 RETURN 

2338 REM FIN DU PROGRAMME 

READY. 



PERPS PAS LA BILLE 



Rattrapez la bille qui tombe a droite ou a gauche? 
Deviee par les plots dans sa chute du haut de I'ecran, 
cette satanee bille se perd trop facilement ! 
Vous pouvez augmenter le nombre de billes (NB) en 
ligne 80 et changer la vitesse de la bille dans la boucle 



de la ligne 360. 



KarimZERHOUNI 




339 P0KEE.81 POKECrl P'J'EE"* J. 78 Pi> tER* J-l , /A PUKEER*J*1 . 73 

368 F0RI-1T038 NEXT 

i76 P=PEEf:i33.i IFP=i' J r»E!" J iJ-L l jE6e0 I*J-1 G>3SUB620 

388 IFP-36IH£HG0iUB6e8 J-J*l G0sUB628 

398 IFPEEK'.E*22>«63IHEN00SUB478 

488 P&KEE-32 B*8*I 

418 IFPEEK<E*22)-7BTHDe*»ie GGSUS338 

428 IFB-22THEMTJOSUB608 GiJi'JB890 001096 

438 G0TU338 

448 kEna**< ..■-.....,..... 

■•■',•; "-_." •■"JUVELLE POSITION BHLLE* 



l/»3)'-l) 



28 RErt«-«iES>»^i; , 

30 RfMMIHMNHIIHMMM 

48 PEM«*««»PfE:£liTE»m4««4« 
53 RE"*»»PEPDi fUl LH******* 



■ ■: •j'jMhiVl 



! REJUH 
478 Nfi-SGM<IliI'.Mi; 

49e iFMFferneM47e 

4i-0 fl-fi*N« 

588 IFH-21THEHH-H 

318 IFH=8'--i-.Ni--.--. 

520 RtM«»»*«««*«t 

';8 P£H»»4»»»«BIP 

340 PEI1*i 

350 FOR I -I TO ROW II 

■„.;• PET'JRK 

37fl FEH • • 

3£8 PEM4««ETFFICEMEIIT DOOETIM 

',m peii" •••*#* •«• 

t->38 "J'E£R*J.3i 
619 POKEER'J'l.ii COfEER'J-1, 
" 1 |fJ"21THe*J*J-a 



HI r-PCK t:>-374,0 



I PPIHT'.T Kjie;«879.9 PQrE36979,I5 S-0 NB-13 ^ j0 IFJ-0THENJ-I-1 



ne ppiHT j k,t • t 
124 PRINT"*** 
;^.j PBUTTM * 
140 PRINT-ktt i 
158 PRMr-k» • 
160 PRINT k,t • 
178 PRINT n* 
184 PRIMT ».» - 

ISO PRINT "kt 1 

288 PRINI k» t 
218 PftlMr-fcM * 
(IN ^r 
[HI kt* ? I 



640 RETURN 
618 REH»"« 
. .. ■■ 



. :■ i 

roe i- 



• lit! 



■ 



* * * * 



240 I 

238 ■■ 
269 e 



t » » • ♦ 



* *'. 






! ,.: J| 



290 REN 

- ■ . 


■ 
10 PRIMI Ml 



>l ■■ 

726 PRJMT-aMC.Li LBCI I .■>•'- I. « 
738 PRIMT"Oa»ia»G-<.. . 

nron*248STEf u 

■ 

768 REn •• 

n i 

768 RE" 

; - . wee mi ■ - 

■ . 

■ - w«Hi t 
, . ,■■,,,,, 

:..■!■■ 

..; v IMH*>' HON 

•••" 



. Ill 
■ 




Rectifical.l APPLE, "COCHON 
QUI RIT - 

Ligne 5130: a la place de TO x. 
102llfaui;ireTOx+2. 102 

Ligne 40020 IF R$ - "0" THEN 1 
est a remplacer par IF R$ - "0" 
THEN 30. 

La ligne 40035 est a suppnmer, 



Suite de la page 4 



APPLE" 



102S0 MPLOT 12B.G4 TO I. 

123. B2 TO 120. 7B in 131, 82l HI 
125,91 TO 12B.93 TO 13-1,91 
10260 It - SOlY » 100iA» - "DOUTON 

PI)L(0> — 'TIR-'i G05I1T' : ! 

10270 X - SOlY » U3|A* - "DOUTON 

PDLUJ-- BOMKE": SOSUI I 



10090 VTAB 21i HTAB 33i 


INVERSE 


MISSION. PF ILIUM 


















1 1 s oosub 16900 












t30l ' 20tA< = "»-"t TiOSUB 1 


101 10 VTAB 21: HTAB 26 1 


PRINT "V 


0500: FOR I - 1 I'd WOl ni ■ 1 












10300 X - 210tr - 20:A* - 9TR« i 














RET't HTAB 2Bi VTAB 


22: PRINT 












10315 X ■ INT ( UNO II) * 6O01 


10133 VTAB 22i HTAB 20t 


PRINT BO 


200lV - INT < RNO 111 • 600 
> - 200 




10 v., 1 UK I - I TO 3000 






10330 Ni ■ 


10160 FOR I - 140 TO 70 


STEP - 


10900 P) 6lPl IS 


10170 DRAW AO AT 30, It 
SO.Ii NEXT 


(DRAW 60 AT 


■ on i ■ i ra i tu '«♦> 

10515 L - ASC 1 MIT)* (fl».I.IJ) - 



10172 DRAW 60 AT 30. 1 
I0I75 X - 40:V - ■u:fi* ■ 'AM I Ml 
t GOSUB 10500 

laiBO fur i - 140 rt) " BTB 

1 1 draw hi ai 230.1' »»r.nw i, 
1 at 230,1 

101! 

: . : 

:■ : . : •. lAI 

■ ■ 
■ ■ . 



■ 



II . 



OR 1 



■,■' l>l| N 



■ ■ DRAW I. AT X.Y 

10540 X " > • Ml II > ■' I ' 

:,.| Hi ■ ■ • I V 

.: . : ■ RETURN 
■ ■■ 192, 

240,9, 
OU [JATi 



■ 

I ■ 

■ 
■ 



..■ | 



BIORYTHME S c ^vJ^ 



Nos fonctions musculaires. nerveuses et inteltec 
tuelles suivent des rythmes reguliers tout au long de VW 
notre vie: 

- cycle physique de 23 jours ; 

- cycle emotionnel de 28 jours ; 

- cycle intellectuel de 33 jours. 
Pour un jour donne. nos 3 cycles peuvent alter du posi 
tif au negatif en passant par 2 jours critiques ; 



14 3a PRINT 



• ■: t" 



PRINT " <5» 





Periode 

de decharge 


Periode 

de recuperation 


Jours 
critiques 


cycle 
physique 


dui" 

au 12* |Our 


dui 2' 

au 23" jour 


T" et 
12" jours 


cycle 

emotionnel 


du 1"' 

au 1 5* jour 


dut5* 

au 28" |Our 


1" et 

15' jours 


cycle 
intellectuel 


du l* 

au 17' jour 


dui 7" 

au 33" jour 


1-el 

1 7' jours 



De quoi planifier vos emotions, rentabiliser vos brain 
stornings, et surveiller votre forme! 

Laurent LABBE 



10 REH 

11 REM 

12 REM 



♦B10RYTHMES4* 




1448 INPUT . . 

CO TO 1440 

1450 IF r=5 THEM STOP 

1455 IF r -4 THEN CLS GO TO 3B« 

=3 THEM CLS : GO TO O0 
-2 THEN CLS GO TO 138 

■ PRINT "htOKIv* U« d > I ■ 
ue oaiasancc PRINT 

1490 GO SUB 6508: LET nbj=dac-g 

LET jon=g LET bo=g 
iS8« CLS i PRINT "Uous cut done 
PRINT GO SUB O 100 

PRINT PRINT "et 



Lisa if 

1479 IF 
1498 CLS 



IBIS PRINT 



3348 IF ct= 

'.a i. LtctUI *. . 

3358 IF et=-p" TM 

ts Uui ', 

3360 GO SUS 1980 

3370 NEXT j 

3388 IF q-1 THEN 

Pour u pc r sonnt 

"J3»B LET blilt 
340B MEXT q 
3410 OO TO 1358 
3S~08 REM <(ti? pe 

COW The 
3510 POINT "(DNO 



THEN GO TO 3378 
-- TMEN F*»1NT '• 

THEN PRINT " 

TMEN PRINT - 



v«U« p«r 



_ aepu _ 

isaa go sue ?see 

1530 GO TO 1000 
1900 REM decodege 



L£T 



3530 PRINT -isisulffs djtcs da 
• i»«*nce* « t scee ecnodt T" p 

3530>PRINT "OIHouveUti data* 
t period* 7" PRINT 

3535 PRINT "(iiflulres courts "» 
3540 INPUT r IP r>4 OR rfl THE 

GO TO 3548 

_ r =4 THEN GO TO 3898 
r=3 THEN GO TO 3080 



3545 _. 
3550 IF 
3568 IF 



1=8. LET 



THEN LET 
r>e = l 



30 GO SUB 9800 

40 CLS 

58 PRINT "D«t i r 



•eiORVTHME 



1815 PAUSE 488: CLS 
1028 LET cosjop-jon 
1825 LET bt='" 
1830>PLOT 8,87: DflAU 

0,8; DBBU 8, 17B 
1835 IT np=2 THEN RETURN 

1848 ir np=2 Rno I •.<>-**" 



255,8: PLOT 



THEN RE 
LET P-28; L 



50 LET r«-INKEY«: IF r * <> " 1 " 
r»<>"2" THEN GO TO SO 
70 IF r»="2" THEN GO TO 3888 
75 LET t «»'•"-. LET np=l 
88 PRINT i PRINT "D4t« de nei 



LET j on =g . L 
^100 PRINT - PRINT "UOUS tttS da 
110 PRINT ;' GO SUB 6108: PRXNT 
115 PRINT : PRINT "II tici.dipii 

i* "; rtbj; - jours . ■ 

120 GO SUS 9B00 

125 IF np=a THEN RETURN 

130 PRINT "Pour qutlx period* 



1878 LET a%s"2t" 

lose GO SUB 2088 

1898 IF np-2 TMEN RETUBI 

i. l .2?_ rr np=2 RNO t*o"p- 
b*-b*+"p"+" " 

i -i n2: LET a* = "a" 



THEN RE 
LET p=23 



1915 FOR n=l TO LEN b« 

1928>IF b»tnj=C* TMEN LET I 1 =n ♦ 

LET did: GO TO 1948 
1938 IF CODE ba(n>>97 AND dl-1 
MEN LET ia»n-l: GO TO 19P0 
1940 NEXT n 
1950 PRINT b»lll TO 12) 

2000 REM COUr be •*•*•»*••••••*»• 

2O10 TOR into TO CO-t38 3TEP .11 

2 

1--P l?.|5Ii 



■iOSO ir INT f30*i 

■t§* "~ 

INK _ , 

sese next .. 

2898 RETURN 

3088 REM n 

3882 LET no 

3005 LET np 

3818 CLS : 

de na i ssanc 
io;a go sus 



3850 GO SUB 90 

3068 LET nbj2=nbj: LET jon2-jon 

3078 IF fiona=B TMEN GO SUB 130 

3075 IF jOp-jOftHO OR .icip-.jons c 

THEN PRINT "Erreur . ..Unt des d 



SI 10 REM 



6120 LET p=> INT ( ( ( 
CbO-Z) /71 I «7*1.S> 
6130 LET s«=jjiN .- 

"♦■« (»Ol *-" ".STR| 
6148 RETURN 

6588 rem ttttentrte 

6S9S REM •****•••»• 
6S10> INPUT " j Our . Mu 



-0 TMEN LET 



6528 IF e<l OR ■ > 12 OR 

EN print "arreur 

6525 LET q C2) =26 
6548 INPUT -Pas d'err«ur 
IF r*<>"" THEN GO TO 6500 
6SS0 LET aO=»: LET mo =■ - I 



2 > Q i a ; T 

GO -TO S58> 



65S0 IF ■ > 

6578 LET a 

6680 LET g 

5610 RETUR 

6780 REM t. 

6710 LET r 

6713) ir ( t 

EN LET q 12 
6720 FOR n 
672S LET i"o=ro 
6730 IF ro <»q f 
ro : GO TO 6768 



THEN GO TO 6600 
NT" ( I ♦») +INT <h» 

ue des 



LET 



LET r*»ao: 

o) -T.rr 1 1 *ao> i 

9 

TO 31 

o*l 

THEN LCT 
■ 1 : LET H 



nae go sub' l. 

$kl% J£ n P=2 THEN RETURN 

- -P=2 RNO >*<>•(■ THEN 



=(INT "Que 



1280 IF 
TURN 

1285 LET bt = t,t+- 
: LET i zin3: LET 
1218 GO SUS 2088 
)LET b»«b*+" 



GO TO 3018 

INT ■■ <e> 



■ : LETT p»33 
IF np.2 TMEN 



1215 

RETURN 
1228 LET ec=0 
1230 FOR n=l TO 31 STEP 3 

1) ,84: OROU 8 , 



3110 PRINT 
oiS COUbtt. 
3120 INPUT 
GO TO 3128 



et tii , tip! ■ 

PRINT " Cepi ) ■ 

»: zr lcn r*>a 



140 


PRINT 
























































GO SUB 6108; PR 



1248 PLOT _ . 

S- PRINT RT 12 ,e . , . 

1246 LET ec-ec+3.i 

12O0 NEXT n 

1360 PRINT RT 0,0i-*l";RT 

0";«T ai.e; ••-%••' 

1270 PRUSE 4C4 

1208 CLS : PRINT "'Jos. Joo 

i ques son t : " : print 

128S IF np=2 TMEN RETURN 
1298 PRINT "pour I'tKCtiO 



iP" OR r*="epi" THEN GO TO 3208 

3100 CLS : GO TO 3088 

3280 PRINT : PRINT INK 3;"les CO 



rou9« 
PRINT 

ne 2 i 



INK 4; " 



Sit 



IS de la 

vtri tt 



6755 LET r (ftl tro 

6768 NEXT n 

6788 RETURN 

9000 REM S--S- d ' ini ti a lisitio 

9005 GD SUB 9100 

9818 PRINT i PRINT "Date d'a 

9020 GO SUB 6B80 

9030 LET dac=g: LET bo =9 

9848 PRINT : PRINT 'Ceil bi 

9OB0 OO SUB 610« 

9860 LET di>a 

9070 INPUT r « 

98B0 IF . _ 

3090 OO TO 9010 

9100 LET I =365.25: 

9105 DIM r (31) 

9118 DIM qfl3l: DIM •*C12,18I 

IM J»(7,a> 

9120 rGR n»l 



PRINT a»i " 7 
THEN RETURN 

LET h*30. 



210 PRINT : PRINT TRB 15;"au" 
215>L£T bO«jOpt3» LET o -O *30 
228 IF 3)^(ioi THEN LET a-o-T(« 
Ol: LCT »o»B.O*l: IF ID (> 13 THEN 
IF 0>q(»OJ THEN LET o=0-qfe.o): L 

225 IF mo. 13 THEN LET mo -X : LET 

ao Ktotl 

238 GO SUB 6188: PRINT : PRINT 

350 GO SUB 9088 

??? 1^ "P "2 THEN RETURN 



1388 PRINT "Que d*S 

n tenant 7" 

1390 PRINT : PRINT 

date de naijsance 



(1) NOUVtlU 



1880 REM 
1886 IF np- 
in 2 -2; LCT 
1818 PRINT 



nl.l: LET 

lvre apre 



1400 print 

periode (et 
-. sancaj 7" 
1410 PRINT 

nt des 2 da 
14S0 PRirrr 



PRINT " (2) 



Sue__ 

3203 PRUSE 408: PRINT 

3285 GO SUB 1000 

3210 LET inl=2: LET in2=2: LET i 

n3=2 

3215 LET CO-JOP-Joni 

322© FOR q-1 TO 2 

323© FOR Jol TO LEN r* 

J240 LET t »-. * ( j) 

324S GO SUB 1840: GO SUB 1100: G 

O SUB 1288 

3230 NEXT J 

3260 LET CO=jOP-Jon2: LET lnl>4: 

LET i n2-4: LET . n3=4 
326S LET b«-b*ff : IF q-1 THEN 
LET >S-bS. LETT b* = "" 
J270 NEXT q 
3275 INK 8: OVER 8 



TO 13 

N 

G . 3 

5* 



3200 GO SUB 1221 
3290 PRINT : PRINT "Pou 
-RINT 

LET b«- 



P*f& 



329S LE. _ 

3388 FOR q-1 TO L 

3318 FOR J-l TO LCN b* 

3328 LET c*=blfj): Tf CODE 



1 .30,31,38,31,2 

9168>rOR n»l TQ 12; RERO ■■( 

9170 FOR n-1 TO 7: RERO J«(nJ: N 
9288 LCT Z=3: RETURN 

3218 DflTfl "JfiNWIBP" .-FEURlen- ."M 
RRS","fiURIL . ■ -yr, .. -,UIN-,"JuiLL 

ET- , ■ROUT" , •'.-Jfc-PTeHBRE" , ■■OCTOOReT" 
, "NOUEMBRe" , "OeCetlDRC" 

9228 DflTfl "Lundl ",'Mardi ". "Merer 
C "C.i«*n?K«- . "' " u * nd «-«*i". 'S*eedi r 

J8B0 REH t-npo **>• «.»•• • 

9318 PRINT RT 21,0, FLASH 1; "PRt 

33ER UNE TOUCHe " 

9820 PAUSE 4E4 

903© CLS : RETURN 

9900 rem aaeesauvegarde •*•*•• 



9910 CLEAR 
9920 SRUE 
9920)SRUE 
9920>SAUE 
9920>SAUE 



LINE 
LINE 
LINE 

LJNE 



TIC-TAC-TOE 



Aligner quatre pions verticalement. horizontalement 
ou en diagonale est devenu un classique pour un 
micro-ordinateur. Mais celui-ci se joue sur QUATRE 
GRILLES A LA F01S, et e'est beaucoup moins evident ! 

Christian GAUCHET 



18 R£n »«inc-T«c-roet" 

29 GCSUB 5538 
23 PRPER »ilr«7 
38 HIRES 

35 MC»a 

40 PW>ER3:IMK0 

30 FOR ft-0 10 3:B-rtt35 
60 FOR C=fl TO 2:D-C«1I 
70 CURSET 4a43>O.00,0 
90 DRAU 0,43, ] 

180 NEXT C:MEXT « 

]}0 FOR rt-0 ro 2:B-A«J1 

120 FOR C'0 TO 3:0-C»35 

138 CURSET 3Q*O,9I*B,0 

140 ORAM 41, 8, I 

150 NEXT CiNEXT ft 

100 FOR 1-0 70 30 STEP 

170 CURSET 14*1,20,0 

168 READ A»:A-ftSCC«a) 

198 CHAR A,0, 1 

20a NEXT 1 

210 FOR 1» 8 TO 39 STEP 

220 CURSE! 14.1,50,0 

230 READ 94;B=ASCre»J 

248 CHAR B,B, I 

250 NEXT 1 

200 FOR ft= 8 TO 3;8-M5S 

278 CURSEI 52<e,3S,8 

280 READ C 

238 CHAR C,8,l JNEXT A 

300 FOR A'8 10 3:B-A«55 

310 FOR C=8 TO 3:0>C»11 

328 CURSET 32*0*0, 05,0 

338 READ E:C"AR E,0,1 

340 NEXT C:HEXI A 



358 FOR A- TO 5:8-A*9 

300 CURSET 13,70*9,0 

370 READ D»;0-ASC(Dt) 

380 CHAR 0.0,1 

390 NEXT A 

400 FOR A-0 TO 3:B-A*I! 

418 CURSET 20,92*B,8 

•20 READ F--CHAR F.0,1 

430 NEXT A 

440 FOR A- TO 11 :B-ft*7 

450 CURSET I3*B, 140,8 

4S0 READ F»:F-ASC(Ft) 

478 CHAR F,0,l:NEXT A 

480 FOR A* TO II :B"A*7 

498 CURSET J3*B, 133,0 

500 READ G«:t>-ASC(G«J 

510 CHAR 0,0, 1 iHEXT ft 

315 OOSUB 7080 

520 REtl «f»C0OR0ONNEES**» 

525 PRINT :PRJNTCMR»(27);'U 

3" 
530 PRINT:j-4a 
335 GOTO 810 
54B P»IHT:PR|NTCnR«(271 ;"l; 

530 PftlNT=;-88 
010 PING 

812 INPUI'^OTRE ESSAI ■ ."» 




013 l 



ijf.i r ■ 



820 IF A<111 OR A>444 THEN 090 
638 Li»LEFT«tft«, l);L-UftL(L«) 

848 n»-fiiD»(A«,2, 1 1 ;n»uAurnj 
850 0«-»]GnT«(At,l ):0=UAL(D«) 
680 IF L-0 OR L>-3 THEN 830 
070 IF D=0 OR n>-5 THEN 890 



080 IF 0-8 OR D>-5 THEN 890 ELSE 718 

090 PRINT'ERREUR 0' INTRO0UCT ION ESSftl" :& 

DT0 818 

700 REM «ll CH01X DE LA GRILLE*** 

710 G-32*aL-I)*44)*f CL-1)*11) 

720 REH *** CH01X 0E LA C0L0NNE*** 

730 c=cn-i)*ii 

740 REfl ***CH0IX DE Lft RANGEE*** 

7S0 R-8!*((D-1 )*I2J 

700 REn »**P0SITI0NNEnENT**» 

703 K-G*C*2iN.R*3 

703 U = P0INr<K,N) 

788 IF U ■-] THEN 788 ELSE 770 

788 PRINT'CnSE OEJft 0CCUPEE, REJ0UE*":WA 
IT 200 

789 GOTO 810 

770 CURSET 5*C,R,0 
788 CHAR J, 0,1 

790 REn ***J0UEUR SUIUANTt** 
795 NC-NC*! 

798 IF NC-84 THEN 10700 

B00 IF j-88 THEN 930 

S30 C0SU9 2080 

940 GOTO 340 

930 G0SU8 4008 

939 GOTO 373 

1080 DATA G,R, [,(.,L,E 

1019 DATA C,0,L,0,N,N,E 

1028 DATA 49,38.51,32 

1030 DATA 49,30,51,32,43,30,51,32,49,50, 

31,32,49,30,31,32 

1848 DATA R,A,N,r,,h'.E 

1038 OATft 43,50,51,52 

1088 DATA 1,«,',. ,J,0,U,E,U,R, . .8 

1070 DATA 7,.,n,», J,0,U, E ,U,H, . ,X 

6 



7010 
2020 
2030 
2040 
2845 
2058 
2000 
2065 
2870 
20B8 
2898 
2180 
2103 
2110 
2115 
2120 
2I2S 
2130 
2148 
2158 
2160 
21SS 
2170 



REfl **«R£CHERCH£ 1ER JOUEUR GAGNANT 

REH **SUR UNE GRILLE*** 

H-G:T»R*3 

RETT HH0RU0HTALESI* 

FOR 1-8T03 

U- M*(l*lIl;S-T 

UtPOINKU.S) 

IHEM 0=Q.1ELSE 2890 



Jtn-tiist. 

IF 0°^ 



THEN 10000 



2190 
2200 
2210 
2228 
2223 
2238 
2240 
2345 



0-0 

REn *1SUR LES 4 GRILLES** 

FOR I -0103 

U-32*|t33:S-T 

U-P0IN1 (U,S) 

IF U--1 THEN 01-01*1 ELSE2150 

Um-U:S(l)-S 

IF 01-4 IHEN 10000 

NEXT 1 

01*0 

FOR 1-8 TO 3 

U-32*I*80;S«T 

U-POJNTCU.S) 

IF V--J THEN 02-02-IELSE 2210 

U(I)-(Jl«(I)-8 

IF 02t4 THEN 10808 

NEXT I 

Q2-0 

FOR 1-0103 

U-197-(I*44):S-T 

u-PorNt(u.S) 

IF U--I THEN 03-03. 1F.LSE 2270 

uu)-u:s[n-s 



2250 
2260 
2270 
2100 
2310 
2313 
2320 
2330 
2335 
2340 
2338 
2300 
2370 
2380 
2390 
2395 
2400 
7410 
2413 
2420 
2430 
2440 
2450 
2453 
2400 
24 70 
24 23 
2480 
2490 

.-.on 
2510 



IF 03-4 IHEN 10008 

NEXT I 

03-0 

REn tlUERTlCALES SUR I GRILLE** 

FOR I-0TO3 

U»G*C:S-8I*( 1*12) 

U'POINUU.S) 

IF U*-I TMEN 04*04*1ELSE 2360 

U(I1-U:S(I)-S 

IF 04-4 THEN 10800 

NEXT I 

04-0 

REn ttfOIAGONALEStll 

REn *SUR UNE GRILLE* 

FOR 1-0TO3 

U-32*(L-I)*35M*11 ;S-B4.!*12 

u^roiNMu.s) 

IF U--| THEN 35-05*! ELSE 2448 

um-u:sm-s 

IF 03-4 fHtN 10800 
NEXT I 

as-0 

un-: 1 utoi 

U-230-(4-L)*3VI*ll :S-84*I*12 
U-rwiNHU.G) 

IHEN 00-aO'IELSE 2300 



J(I)' 

I. '.', ■! ( 



REM i'.iiv 'i BRII i i ' 






7378 FOR 1=6103 

7323 U-32'l»6eiS=e4.|i]2 

»M U-POINHU.5) 

2548 IF V»- 1 THEN 07*0?.| FLSC 2578 

JM5 U( L >-U:S( I >»S 
7558 |F 07-4 1WN Idem 

756* text I 

7576 07*6 

ne« for i-flioa 

7383 U=238-It68:S-84.Ul7 

2396 L'=POmT(tl.S) 

7888 IF U--I THEN QB-08. IELSE 2838 

2885 U(IJ-U:SU)-S 

ma if oe-4 then tome 

2620 NEXI I 

MM 08-8 

2778 REn **UER1ICALES SUR 4 GRILLES" 

2788 FOR ]=01O3 

2785 U*32*SS»l*in-1 )l|| :S=84M*17 

2798 U-POINHU.S) 

2888 IF U=-| THEN R8=R8.IELSE 7838 

2885 Ull )-U:S(tl=S 



2818 IF I 



•hen 



|:S=84.]«12 



2828 NEXT I 

2838 R8=8 

2848 FOR 18T03 

2845 1^238-1*55 {4-H1I1I 

2856 U=P01NTCU,S) 

2988 IF U=-l THEN »I=1*!.]£LS£ 2838 

2865 U(I)=U:SU1-S 

2878 IF RIM TKN 10888 

2888 NEXT I 

2838 Rl-B 

2988 FOR I = BT03 

2385 U-19?-|*44:S-T']*]2 

2918 U=P0IWl(U,S) 

2328 IF U=-l THEN R2=R2.IELSE2958 

2925 UCI]=U:S(M»S 

2338 IF R2 = 4 THEN 18888 

2948 NEXT I 

2368 R2=8 

2968 FOR I =8703 

2365 U=I3?-44*|:S=I28-12*I 

2978 U'POJMKU.S) 

2373 IF <J--\ THEN R3-R3-1ELSE 2395 

2988 U(l )=U:SC1)-S 

2385 IF R3=4 THEN 18888' 

2998 NEXT I 

2335 R3=0 

3888 FOR I=8T03 

3885 LK».in-|J*ll.I*S5:S=T 

3818 U=POINT(U.S) 

3815 IF U=-l THEN M=MM ELSE 3835 

3829 Ut 1 J=U:Stl)=S 

3825 IF R4=4 IHEN 18888 

3838 NEXT I 

3835 R4=8 

3988 RETURN 

4088 REM RECHERCHE 2nE JOUEUR GAGHAHI 



424S 
1238 

4288 
1278 



REn •IKORIiONTN.ESll 
FOR I -8103 

>■■' til I J:5-T 
U'POlNWii.st 

IF U--I THEN Q»Q. IELSE 4890 
UtI]-U:S[ ll=S 
IF 0-4 IHEN 18008 
NEXT | 

RE" itSUR LES 4 GRILLEStt 

FOR I =8103 

U=32.HS5:S=T 

U-POINT CU.S1 

IF U— I THEN 0!=OI'l ELSE4158 

U(M=U:SU)=S 

IF 01«4 Then 10088 

NEXT I 

01*8 

FOR 1=0 10 3 

U=*32.IiB8:S = T 

U=P0INTCU,5) 

IF U— 1 THEN 02=02. IELSE 4218 

UCI)-U:S(|]-S 

IF 02=4 IHEN 10008 

NEXT I 

02=8 

FOR J-8T03 

U*l9?-{I*44):S-t 

U=P0INT(U.S) 

IF U=-l IHEN 03=Q3. IELSE 4278 

UCI)'U;S(I J=S 

IF Q3'4 IHEN 18880 

NEXT I 

03=8 

RETT **UERTICALES SLR 1 GRILLE*! 

for i=ero3 

U=G.C:S=8l.CI*12] 
U=POINT(U,S) 

IF U=-t IHEN 04=04. IELSE 4368 
UCl)=U:StI)=S 

IF 04=4 THEN 18008 

NEXT [ 

04=0 

RE« ***D I AGONAL ESt** 

REfl *SUR UNE GRILLE* 

F0RXI=8T03 

U-32.(L-I)*S5*I*1I:S=8J.J*I2 

U=P0INT(U,SJ 

IF U=-l THEN 05=05.1 ELSE 4448 

u(n=u=scn=s 

IF 05=4 THEN 10808 
NEXT I 

Bs-e 

FOR I =8103 
U=238-C4-LJ*55-I*TI:S=eitI*I2 

U=POINTCU,SJ 

U=-l THEN 0B=Q8'1£LSE 4588 



tl)-t 



}=S 



IF 06=4 THEN 10808 

NEXT I 

06»B 

REn *SUR 4 GRILLES* 



4528 FOR I -8103 

4525 U'32«I*86iS=81«UI2 

4538 U-POINIIU.SI 

4548 IF U=-l IMEN 07*07*1 ELSE 4579 

4545 U(I)=U:S(I)=S 

4558 IF 07-4 THEN 18888 

4588 NEXT I 

4578 07*8 

45B8 FOR 1=9T03 

4585 U=230-t*66:S=81.|t|2 

4538 U=POINTtU,S) 

4890 IF U=-l IHEN 08=08'1ELSE 4638 

4695 ll(l)=U:S(l)'S 

"618 IF 09=4 THEM 19000 

4620 NEXT I 

4638 Q6=9 

4779 RE" "UERI1CALE5 SUR 4 GRILLES** 

47B8 FOR 1-0103 

4785 U= 32.55*1. (n- | )*l I :S=81'U12 

4798 U=POINTCU,S) 

4888 IF U=-l THEN R9*R9'1ELSE 4638 
4695 UCU-UiSCti-S 
4918 IF R8=4 THEN 18888 
4628 NEXT I 
4 838 R8=9 
4B4B FOR I=8T03 

4845 U=23B-l*S5-t4-flJ*|] :S=9I>I*12 
4B58 U«POINT{U,SJ 
4B60 IF U=-l THEN R1=R1. IELSE 4890 

4865 U(IJ«U:Stn*S 

4670 IF Rl=4 THEN 19909 

4889 NEXT I 
4839 Rt=8 
4908 FOR I*8T03 
4985 U=T9?-I*44:S=T.[*I2 
4319 U=POINT(U,S) 

4929 IF U=-l THEN R2=R2- 1ELSE4958 
4925 U(Ij=U:S(Ij=S 
4939 IF R2=4 THEN 18888 
4949 NEXT I 
4359 R2=8 
4960 FOR !=8 T03 
4965 U=I9?-44*I:S=117-12*J 
4978 U=POINT(U.S> 

4375 IF U=-I THEN R3=R3. IELSE 4995 
4988 UU)=U:SCIJ=S 
4985 IF R3=4 THEN 10008 
4990 NEXT I 
4395 R3=0 
5900 FOR I=8T03 
5885 U=32»(n-n*11.I*55;S=T 
58IB U=POINTCU,S) 

5815 IF U=-l THEN R4=R4>1 ELSE 5835 
5828 UtIl=U;Stn=S 
5025 IF R4=4 THEN 18888 
5838 NEXT I 
5833 R4=B 
SI 96 RETURN 

5588 REM *l*t*ll***t*t**>i*st* 
5585 CLS 

5519 PAPER 1'INK 6 
5529 PRINT :PRINT:PRINT:PRJW SPRINT :PRINT 



5538 PRINt:PRINI ;PR|NT- Chrnl 

gauche r- 

5548 PRINT :PRINI:PRINT- ty H*. 

5558 PRINT :PR|NT- Lwaul foil 



73230 LANOIUISI 



5568 PRINI:PRINT 

flU- 

5588 GET It 

6890 REn ill REGLES DU JEU*I* 

6058 CLS:|NK3:PAPER4 

6188 PRINT:PRINT- TJC - TAC -IDE 

-:PRINT:PRINT 

8158 PRINt;PR|NT-CE JEU QUI SE JOLC A DE 



r:P«|NT-C0NSISTE A ALIGNER 4 X 
■DANS L'UNE OU L'AOTRE O 



6298 

OU 0' 

6380 PRINT :PR| 

ES 4 GRILLES- 

6488 PRINT:PRINT-OU OANS LES 4 GRILLES A 

LA FOfS- 
6458 PRINT :pRINI"EN INTROOUISANI DANS L- 
ORDRE LE NUT1ER0" 

6468 PRINT^PRINT-- DE LA GRILLE [- 

6478 PRINT*- DE LA CCLONNE [ EX: 34 

2" 

6498 PRINT"- OE LA RANGEE [":PRINT 

6498 PR1NT"0ESIGNANT LA CASE DANS LAOUBL 
LE UOUS DE5IRE2 JOUER* 

6588 PRINT :PRINT-APPUTE2 SUR UNE TOUChE 
POUR COnrtENCER " 
6688 GET A* 
6399 RETURN 

7088 REn ***SCORE JOUEUR 1*** 
7818 CURSET 158,148.8 
7811 CHAR 127,8,8 
7012 CURT10U 8,0,8 
7813 CHAR 127,8,0 

78i4 cuRflou -e.a.e 

7815 S1*=STR*(SA] 
7828 P1*=R1GHT*CSI*,23 
7821 UI*=RIGHT«(P1«,|] 
7922 01*=nlD*(P]«, 1,1) 

7023 U^ASCCU!«);D 
=ASCCDI*) 

7824 If 0=2 THEN 7839 

7825 CHAR 0.8,1 
7026 CURnOU 8,9,0 
7838 CHAR U.8,1 

7858 REn ***SCOR£ JOUEUR 7*** 
7968 CURSET 150,155.3 

7861 CHAR 126.8,0 

7862 CURnOU 8,9,0 
7963 CHAR 126,8,0 
7864 CURHOU -8,8.8 
7065 S2f=STR*(SB) 
7878 P2*=RIGHT»(S2«,2J 
7971 U2*=RIGHT*[P2«, 1) 



>872 D7»»f1[D*IP7i. 1, I ) 
2B73 1)>ASC(U?*]]D>ASC(D7*I 
78B4 IF D-2 THfN 788* 
78V5 CHAR 0.8,1 
»876 ruRnou B.t.e 

2888 CHAR U.8,1 

'BSS RETURN 

IBB80 PRINTCHRtt 171 

18819 PRINTO**(4).n*«[7/> 

A N £• 

18812 GOSUe 18588 
18815 IF J=89 THEN 18859 
10016 SA=SA*1 
18020 REPPAT 
18825 FOR I = 8TD3 
18838 CURSEI U(I).S(I)-3.B 
18835 CHAR 49,9.9:UAf* 28 

18849 char 4B.8. i 

18045 NEXT I 
I80S0 UNTIL X80KCT8 
19855 GOSUB7880 
18856 G010 18095 



•1 



18868 REPEAT 

18865 FOR l=BT03 

10878 CURSET U(I).S(I),8 

18875 CHAR BB.8,0:UA(T 28 

1 8988 CfAR 3S, 8. 1 

18085 NEXT I 

18838 UNTIL X40KET* 

18833 GOSUB7800 

19895 PR1NTCHR*E4):PR|NT 

18108 A* = -U0ULE2 UOUS REJOLCR ? O'N' 

19158 PRINTACGET X* 

10288 IF X40-N-TMEN 18488 

18399 TEXT :CLS:PRINT:PRJNI --PRINT prist :<■ 

RINT:PRJ NT -PRINT :PRINI :PR|N 

T:PRINT:PRJNT 

18385 PRINT :PRIKT :PR[NT 

I031B PAPER 4:INK 3 

10358 PRINT- nu REUOIR- 

18368 PRINT iPRINI :PR1NT 1PRINT :P«1NT :PR|N 

T ;PRINT :PRINT :PRINT iENO 

18488 REn 

18419 X* = " 

10428 RESTORE 

18438 GOTO 2S 

19S09 REn ***ACCOrfAGNEnENT TTUSICAL** 

10518 FOR N^8T03 

10529 READ A.B 

10538 nUSIC 1,4, A, 15 

18548 PLAT 1,8,7,2808 

1 8558 1*1 1 1 B 

19569 PLAT 9,8,8,0 

10S70 NEX1 N 

18580 DATA 3,38,9,68,3,38,9,06 

18688 RETURN 

18788 CLS ■EGALIIE 

1B71B PRINT-UOVJS E1ES A EGALHE." 

18728 PRINT*UOUS UCTJS DEFENOEZ BIEN. * 

10730 GET Z«:CLS 

10748 GOTO 10188 



JACKPOT 



Le "bandit manchot" sur votre GOUPIL! Vous n'avez 
meme pas besoin d'actionner le bras de la celebre 
machine, le clavier de votre ordinateur suffit. 



DIM LE«'38) 



2 EXEC. -GENCOR- 
Z COLOR 3: OR 

ft COLOR It PORTS 

3 PR1WT CHR»(20):OtM<lM>(&fW<3>i-JBCKPOT" 
5 PRINT CHR»< 1031 ICHR*' 150; ;Cnn«C3)i"De " 

7 PRINT OIR*(I(iS);CHR*({170);CHRS<l) i'DLUON lam 

8 PRIMT CHR«(l&3)tCHR«{208)'CHR«(l> I'FhLOUET fi 

9 PRINT CHR*(lft5>:CHR*t220) tCHR»(l) i-«BNSCOUR ( 
18 PORTSJ 

20 PRINT-coob.an <t* .ou-vrs ?■ 

21 oin firtsei 

22 DIH ETtKSB.ftl 

23 DIN JO»(38) 
2* DIN FF<38) 
23 INPUT JO 
26 F-RINT"Qu»rc monl i *■ 
36 FOR 1-1 TO JO 
33 INPUT JO*(I> 
36 FF(I)-1B680 
48 NEXT I 
*2 FOR I-I TO JO 
ft3 PRINT JOttll)! 
ft6 PRINT TOB{20):Fr(I) 
&7 PRINT TPBtiai : ■ c 

48 INPUT HUD: FF<I)-1 

49 PRINT - iup auviln i»f.f« 1" 
Z» ETtCI. I>- INCHXfR)- ET4CI.2)- INCHt(fl> 

31 PRINT ET»(I.l). ETf(I.2).ET*(I,3> 

32 L£»(IJ-ET»CI. l)«ET«(I, 2>.£T»f 1.3) 

33 NEXT I 
86 COLOR 0:DR:COLOR ft:CR 
63 COLOR Z 
66 U*0 
07 FOR J-1T03 

10 FOR I-1TD3 

11 PLOT 30HJ.7S*! TO et 

12 PLOT 3B*U. 128*1 TO f 

13 PLOT 2S*U*I.79 TO 2e-.U'l. 131 

14 PLOT 7B*U«I,79 TO 7C*U*I.13I 
13 NEXT I 

16 u»u*7a 

17 NEXT J 



O v 



& 



>-ni(i) 



i.78*I 



ET«(I,3). INCH«'I 




SOLUTION DE L'HIPPOREBUS: 

10 FOR I = 1 TO 12 

20 READ X 

30 PRINT CHR* U>; 

40 NEXT I 

50 END 

60 DATA 73,73,34,69,82,80,82.69 
,84,69,85,82 



►V 



136 X-RND<0) IT-RND <0):Z-RND CB) 

198 J-INT(6*X+11 

266 H»INT(6*Y*1> 

216 C-INT(6*Z*1) 

213 PORT 3 

218 COLOR 

228 GOSUB 318 

223 P-P*78 

238 GOSUB 320 

233 P=P*7B 

2A8 GOSUB 338 

243 PORT 8 

238 GOTO 1880 

318 ON J GOTO 310. 330.686. E£0.670.710, 728 

328 ON n GOTO 318. 538.686, 660, 670, 710,720 

338 ON C GOTO 310.338.666.660.678.718.728 

318 PRINT CHRt(43+P>lCMR»(121):CHR4(3) l-J- 

311 RETURN 

338 PRINT CHR*<ft3*P>!CHfl*C121)lCHR*C3)t-«- 

531 RETURN 

666 PRINT CHR«(ft3+P)lCHRt<I21) tCHR»C5> l-C- 

681 RETURN 

668 PRINT CHR»<A3*P)lCHR»<121) ICHR»<3) I"K' 

eei return 

678 PRINT CHR»<ft3*P)!CHR4(121):CHR«(5)!"P n 

671 RETURN 

710 PRINT CHR«(43*P) iCHR*( 121 H CHfl«(5) T "0" 

711 RETURN 

720 PRINT CHR«C3+PHCHR*(121>1CHR*(3) !-T* 

721 RETURN 

1668 PRINT CHR4C12) 

1003 PRINT TnB(25)l"RECflPITULOTIF* 

1886 PRINTiPRINTiPRINT 

1088 PRINT-NOH DES JOUEURS" . "HI SES" . -CHOI X" . "bourw 

1689 PRINT:PRINT 

1818 FOR 1-1 TO JO 

1028 PRINT JD*(I).MI(1).LE«II). FF(J ) 

1038 NEXT I 

1838 PRINT * POUR CONTINUES TAPER SUR UNE TOUCHE ■ 

1868 I*- 1NCH»<B) 

1308 PRINT TBS (23) "MISE Q JOUR " 

1518 IF J-1THEN J»--J m 




1315 
1528 

1336 
1340 



2010 
2015 
2020 
2838 
2040 
2030 
2068 



3833 
3B60 
3070 



A n 9 n * 

IF J-2 THEN J»-"fl' 

IF J-3 THEN J»-" 

IF J-4 THEN J«-"K' 

IF J-3 THEN J«-"F 

IF J-6 THEN J»-"Q~ 

IF J-7 THEN J»--T" 

IF fl-1 THEN R*-"J" 

IF R-2 THEN 0»»"n- 

IF fi-3 THEN M--C- 

IF O-ft THEN fl«-' , K" 

IF A»3 THEN R»-"P" 

IF fl«6 THEN Ht.-"Q" 

IF fi"7 THEN fl*-"T" 
IF C»l THENC*-"J- 

IF C=2 THEN C*»"0" 

IF C-3 THEN C»«"C" 

IF C-ft THEN C««-K" 

IF C-S THEN C*-"P" 

IF C-6 THEN C*-"0" 

IF C-7 THEN C«-"T- 
PRINT CHRX12) 
FOR !■! TO JO 



IF ET«(I.1)-J* THEN T-T*1 

IF ET*(I.2)»R* THEN T-T* I 

IF ET»(I.3)-C« THEN T"T*1 

IF T-3 THEN MI(I>-2B»HI<IUFF<n-FF(l).ni(I) 

IF T-2 THEN HI(I)-3*MI(I)ifF(I)-FF(I)*HI(I) 

IF T-I THEN FF(I)-FF(I).MI(I) 

NEXT I 

PRINT Tfi8C23)1*BILHN " 

PRINTiPRINTiPRINT 

PRINT"NOHB DEB JOUEURS'. 'fUSES*. "BOURSES" 

FOR I-I TO JO 

PRINT JO*(I).- ".ni(I).FFtl) 

NEXT : 



P-P-1H9 



HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AUTARIFPREFERENTIELDE 340 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 x 8,00 - 416 FRANCS 



NOM: 
PRENOM: 
ADRESSE: 
REGLEMENT JOINT: 



CHEQUE 



CCP 



MATERIEL UTILISE: 

CONSOLE: 

PERIPHERIQUES: 



C'EST NOUVEAU, CA VIENT DE SORTIR! 



BON DREUX DE BON DREUX! 

Une exposition-vente de jeux video et de materiel mi- 
cro informatique est organisee par la jeune Chambre 
economique de Dreux et de sa region du 28 novembre 
au 3 decembre. L'informatique descend dans la rue: 
une animation est prevue dans toute I'agglomeration, 
des navettes de car sont mises en place et les com- 
mercants. les banques, les journaux et FR 3 sont dans 
le coup. Gens de DREUX, c'est bon pour vous ! 



90° 



PPC-T 

Le club de programmation personneile sur calcula- 
trice de Toulouse (petit nom pour les amis: PPC-T) 
edite depuis deux ans deja un bimestriel consacre aux 
calculatrices Hewlett-Packard. Aujourd'hui le format 
du journal change (1 4.5 x 22 cm), la pagination passe a 
64 pages et le tirage a 1 000 exemplaires. Vous y trou- 
verez idees, commentaires, astuces et programmes 
pour HP 15. 41 et 75.Deplus.unenouvelleactivitevient 
d'etre creee ; le LANGAGE FORTH, et ce quel que soil 
le materiel utilise, HP 75 C, JUPITER ACE, ORIC.ZX 81. 
etc. Les fanas de HP vous tendent la main ! 77. rue du 
Cagire. 31100 Toulouse. 



Un nouvel organisme de formation au 32. rue Vignon VISA POUR ORIC 
dans le 9- arrondissement de Paris. Son nom : L'ANGLE 
DROIT. Les stages sont hebdomadaires (presqu'un 
confrere!) ; des cycles d'initiation enjourneeou en soi- 
ree (2 jours) et des journees PROGICIEL sur des pro- 
grammes standards existants comme traitement de 
texte. traitement de fichier, etc. Telephone 26541 52. 



C'est le titre d'un petit ouvrage de 60 pages rassem- 
blant des trues et astuces pour votre ordinateur bien 
aime. Entre autres, 4 pages destinees aux adresses 
memoires. Par Frederic BLANC et Francois NORMANT. 
40 F. 



CATALOGUE SIVEA : 

Consacre a l'informatique domestique et de loisirs. fe 
nouveau catalogue SIVEA est plus beau que jamais Un 
effort important a ete fait au niveau de la presentation : 
80 pages 21 x 29.7, papier glace, beaucoupdecouleurs. 
de nombreuses photos d'ecran et de materiel, un clas- 
sement par ordinateur et des descriptifs tres complets 
sur les produits proposes. Que vous soyez amateur 
eclaire a la recherche de produits bien specifiques ou 
debutant souhaitant vous documenter, les informa- 
tions ne feront pas defaut. En effet. le catalogue qui 
comporte plus de 600 references pour APPLE THOM- 
SON. ORIC. TRS 80, COMMODORE. ATARI. TEXAS et 
LASER 200 n'oublie ni la librairie (en francais et en 
anglais), ni les peripheriques. les imprimantes et les 
accessoires (moniteur. disque dur. table tracante. 
materiel de rangement. mobtlier. etc.). Et les logiciels 
ont la part belle ! Vous pouvez vous procurer le catalo- 
gue dans les boutiques SIVEA pour 15 francs ou par 
correspondance en joignant votre reglement de 
25 francs a SIVEA. 13. rue de TURIN. 75008 PARIS. 



RADIO 
NAVIGATION 



Grace a votre carte de navigation marine, partez a la 
voile a la recherche de trois lies. Votre position de 
depart est aleatoire et dans une zone de 100 x 100 au 
Sud-Ouest. Emportez dans votre croisiere une regie, 
un rapporteur et une carte marine. 
Vous avez la chance d'avoir un vent constant d'ouest. 
Par contre vos relevements ont une imprecision de a 
5° et votre montre manque d'exactitude. < 

Ne vous inquietez pas si vous tournez en rond autour 
des iles. la visibility est variable, mais il n"a y aucun ris- 
que de naufrage. 

Votre vitesse sera maximum avec un vent plein travers 
(grand largue) et nulle avec un vent venant de moins de 
30° avant. 

Si apres 50 points, vous n'avez toujours pas vu les trois 
iles, il sera trop tard et les balises radio des lies s'etein- 
dront. Et maintenant "SHIFT N" et bon vent! 

Rolland GALLIER 



Vous pouvez - augmenter la vitesse (lignes 190 et 195). 

- diminuer I'eloignement des Ties (ligne 105). 

- terminer le voyage au point de depart, mals le retour 
sera long (vent de face). 

- faire varier la direction, ou/et la force du vent. 

- ajouter tempele, s.o.s.. etc. 

nota : les relevements des iles sont fails du bateau II suffit done de 
suivre I'un de ceux-ci pour aller vers Ifle consid^ree. Ex. : Hie 1 est 
dans votre 035°. vous prenez le cap 035. 

Etant donnees les distances et la vitesse (0 a lOnceuds) Iesdur6es 
sont importantes: plus de 100 heures pour le voyage complet en 
9 points de navigation. 



is RSI "GALLIEP. 

ROLAND" 
2IPEH 'NAVIG- 
3: REM "SHARP 

PC. 1211 



5:PPIMT " 

— >SHIFT M— 

— >" 
i&;l>997IJ-IHT < 

997U>iRETUPH 
10:V=IHT <IOOU* 

l>t RETURN 

RETURN 
20:H-0:H*F! 

RETURN 
25:M=S:N-Ji 

RETURN 
30: IF (X=t1>*<Y> 

N)LET L»270: 

PETURN 
35: IF <X=M>*(Y< 

N>LET L=90i 

RETURN 
■10:W*ABS <K-M)x 

ABS <Y-N) 



45:L=ATN U 

50: IF <X.<M)*(Y< 

H>LET L=L+18 

OiOOTO 73 
55= IF <X<M>»(Y> 

NJLET L=360- 

L:G0T0 75 
£0: IF '.X/t1>*(Y< 

H)L£T l_=I9Q- 

L 
75--GOSIJB 6:L=L* 

2.5-5*0* 
SO: IF L/360LET 

L=L-360 
81tL=IHT LI 

RETURN 

%z:q=i <■'(*& (/.- 

r1» A 2+<AB8 < 

Y-H»*2> 
?i:RETiJRN 
99i *N* I CLEAR 
100: INPUT "ftLEA' 

A l>*"(U 
I05:A=200:E=300: 

G=3O0:F=100J 

9-5001 J =200 
HOiOOSUB 6: 

GOSUB I0:X=V 
115:OTSUB 6: 

GOSUl I0:Y»V 



0G0T0 240 
125:BEEP UPRIHT 

■POIHTi'.C 
130:FOR 1 = 110 3 
135: IF AC26+IJ-I 

BEEP I: PRINT 

-iLE ":r;" a 

RESCUE. ":A<2 
6+1)»2Ih<30) 
■R(307+l 

136: IF A(30)»3 

GOTO 250 
MO: NEXT I 
143IGOSUB ISi 

GOSUB 30: 

beep pppint 
m rel.i=' - ;l 

1*50: GOSUB 20: 
GGSUB 30= 
BEEP PPPIIir 
"R£L.2»"IL 

I3SKJ06UB 25: 
GOSUB 30i 
BEEP 1* PR I NT 
"PS..3""iL 

I 60: USING "1*11. 
1I-:E»DMS E: 
PRINT "TEMPS 
EC0ULE-"!Et 




\* 



E=DEG E: 

USING 
165: INPUT "CAP C 

0MPAS="iH 
170s GOSUB £:H=H* 

5-10*U 

173: input "temps 
au cap=";ts 

T=DEG T 

177: IF H>270LET 
K=H-270:GOT0 
183 

178: IF HOOLET K 
=H-270*360: 
GOTO 185 

I&0sK=H-270:K= 
ABS K 

135s IF K-3QLET P 
=0 

190i IF <K>-30>*< 
KO00LET P»l 
G*CK-90V6 

195s IF KX30LET P 
=10-(K-90>^1 
8 

200:P=ABS Pi 

GOSUB 6:P=P* 
2+U-l 

205: GOSUB &:T=T* 
C.l*U-.05) 

210:X=X*T+P*SIN 
H:V=Y*T»P» 
COS H:E=E+T 

21 3l GOSUB 6s 
GOSUB 15: 
GOSUB 85s IF 
0<<5MO*U.J 
LET A<27>=! 

220: GOSUB 6s 
GOSUB 20: 
GOSUB 85: IF 
0<<5-H0*U> 
LET A<28)=1 

225: GOSUB 61 
GOSUB 23: 
GOSUB 85: IF 
0<<5*10*U> 
LET A<29>=! 

23IMF C=50GOT0 
240 

235: GOTO 120 

240:PAUS£ "TROP 
TACT'" 

241: PAUSE "VOUS 
ETES ELIMIrC 
..."IGOTO 26 
3 

230:E=>DMS E: 

USING -1*1*. 
If: BEEP 3: 
PRINT -TERMI 
NE EN "iE;"H 
CURES" i USING 

235! PRINT -NB.PO 
IHTS="(C 

260:W=25Q-<INT ( 
E*10*C3>)m 
-INT UJ PRINT 
"OUALIFICAT1 
OH-"SM 



270: IF H*-*0- 

GOTO 93 
279* EKD 



BULLDOZER 



Les bombardements redoublent, les parachutistes 
ennemis envahissent la ville. Reconstruisez la ville 
avec votre bulldozer en veillant a vos reserves d'eau et 
de fuel. 

Francis GUILLEMOT, 



En deplacant son bulldozer, le joueur doit surveiller ses polenliels 
d'armement. de fuel, de construction et d'eau. Lorsque les reserves 
laiblissent. un voyant jaune apparait en bas de l'6cran, assort! des 
letlres Fpour fuel, C pour construction. E pour eauet Apourarme- 
ment. Le polentiel de construction baisse dun point par maison re- 
construite; le potentiel d'armement baisse egalement d'un point 
par parachutiste ecrase. Si 20 maisons sont detruites ou si 20 sol- 
dats sont parachutes, la partie est perdue. 
Les soldats et les bombes se succedenl a un rythme infernal ! Cor- 
taines bombes rasent les maisons. d autres declenchenl des incen- 
diesqu'ilfauteteindre en passant dessus avec votre enginflepolon- 
tiel d'eau diminue alors d'un point). Allenlion. si vous n'avez plus 
d'eau, les incendies constitueront une barriere mfranchissable. Dc 
meme les barricades bleues et les soldats deviendront infranchis- 
sables si les points d'armement sont termines. 
Pour refaire le plein, il taut se ravitailler aux reserves rouges. 
Si le bulldozer est touche par une bombe, une sir6ne Indlque qu'il 
faut se diriger d'urgence vers une case R pour reparation. 

Si lejeu vous parail trop dillicile, vous pouvez changer la cadence de 
parachutage de la ligne 780 (baisser la valeur 0.3) et cello des 
bombes en ligne 870 Un plein defuelrepresente 150 points do car- 
burant. un plein d'ar memenl 20 points et les autres plcins 9 points 




OITfiDUE SUR Lfl VILLE 
DE FRANCIS GUILLEMOT 
POUR TI77/4A 



1 REM 

2 REM 

3 REM 

4 REM 
3 REM ••••••••••••••••••••• 

10 CALL CLEAR 
20 CALL SCREEN(Z) 
30 RANDOMIZE 
33 GOSUB 7000 

60 CALL CHAR(fc4,''OO0OI01F3B7EFF7E"> 
70 CALL CHAR(72, T, 9e387ClAl < '24242<* , *> 
BO CALL CHAR<80,"A81246238A348AC4"> 
90 CALL CHAR(88,"007E424242427£00"> 
00 CALL CHARU23. ■003C22223C2422O0") 
10 CALL CHARC124, M 0O3C20382O202000" I 
20 CALL CHARU23, M 003C202O20203CO0" ) 
30 CALL CHARI 126, "OO3C203C203COOO0" ) 
40 E-0 

ll-TI-99 4/A 

90 EAU-9 

200 A-20 

210 CALL CHARM22, "003C243C24242400" ) 

220 CALL CHAR(96."007E7E7E7E7E7EO0"l 

230 FOR 1-1 TO 16 

240 CALL COLOR I 1.2,2) 

230 NEXT t 

260 PAINT " " 

270 PR1N' - * '* •"" 

2B0 VMINT -' ■•' '* 

2TO PRINT -* ■* " " 

300 PAINT ** •<>•'" *■ '* - 

310 PRINT ' * 

320 PRINT " 

330 PRINT -" " * * "■" 

340 PRINT 

330 PRINT " * A" 

360 PRINT * ' ' * 

370 PRINT " * 

SOO PRINT "* * A * ••" 

3TO PRINT " 

PRINT ** 

PRINT " * 

PRINT " 

PRINT " - * ' " 

PRINT "■ •* 

PRINT " •■" " 

PRINT " •■** O*'"" 

PRINT "" "it 

CALL HCMAR<23,3,76,2VI 

CALL HCHAR<24 > 4,102) 

CALL MCHAfl(24,S,?7> 

CALL MCMAR<24, 12. 101) 

CALL MCMAR<24, 16,991 

CALL VCMAR<I,32,96,231 

CALL VCMAR<I,3I,96,3> 

CALL HCHAR<22, 31,961 

CALL VCHAR<6,31,32, 17) 

CALL CMARC81.-007E7E7E7E7E7EOO-) 



310 


CALL 


COLOR! 1. 16,2) 






320 


CALL 


COLaR(2,9,2) 






■,:.•-! 


Oil. 1 


COLOR (3, li.^'' 






340 


i Ml i 


(.mi (ii- (-1. i'... 1 ) 






350 


TALL 


COL0R(3,4.2) 






'.(." 


CM i 


C0L0R(6,14.2) 






",/:. 


CALL 


C0L0R(7,ll,2) 






sec 


LMl 1 


C0LOR(8,8,2) 






390 


CALL 


COLOR <9 ( 16, 2> 






600 


CALL 


i.Di 0R< 10, '•■.". 1 






610 


i;,-,i i 


C0L0R(ll,16.2) 






f.VO 


CALL 


C0L0R1I2. 16,9) 






630 


X-4 








610 


V-12 








630 


CALL 


GCHARIV.X.CAR) 






660 


CALL 


HCHAR(Y,X,64) 






670 


CALL 


JOVST (1 .AA.BIJ) 






680 


CALL 


GCHAft(V-BB/4, K 




4.CA) 


tea 


IF CA-64 THEN 780 






690 


[F CA-32 THEN 710 ELSE 


2000 


710 


X-X*Afl/4 
Y-V-BB/4 






730 


CALL 


HCHAH(V»BB/'4, X 


AA 


4. CAR! 


740 


CALL 


HCHARtV, X.64) 






/SO 


CAR- 

F-r 








770 


IF F 


30 THEN 780 






>t\ 


CALL 


HCHAH(24,3,B1 > 






772 


IF F 


THEN 3000 






7B0 


IF RND<.3 THEN 790 ELSE 870 


790 


V-IN 


IRND»2B)*4 






800 


H-INT (l'NI).-.'l 1 •;■ 






ii 1 


CALL 


OCHAAIH.V.CC) 






820 


IF CC<>32 THEN 1030 






830 


E-E» 








840 


IF E 


20 THEN 3000 






.no 


CALL 


HaiARtM.V. 72) 
1030 






B70 


IF r-r-iic . -in THEN OBO 


ELSE l( 


geo 


V-INTIRN0*28)*4 






090 


W-IN 


<RND>21)*2 






900 


CALL 


OCHAH(M.V.CC) 






910 


IF CC-64 THEN 6000 






920 


IF CC<>72 THEN 970 






930 


CALL 


)ir:HAH(W. V, A'.'l 






940 


CALL 


SOUND<-200,-2,0) 




930 


E-E- 








960 


BOTO 


1030 






•70 


IF CC096 TtCN 1030 






980 


CALL 


iiuwyiH.v.mn 






990 


CALL 


3OUND(-2OO,-3,0) 




lOOO D-D*l 






1010 IF D>20 THEN 3000 






1020 GOTO 1030 






1030 CALL HCHAR(W,V,42*INr<RNO»2)»4A) 


I040 CALL 80UNDI-20Q, -3 


01 




1030 T-T 








lOAO oaro *70 






2OO0 IF CA<>72 THEN 2OO0 




2003 IF H-l THEN 7BO 






2OI0 IF A<l THEN 7SO 
202O E-C-l 


SmU- !>■<•!'• U) 



DEUX SUPER-CONCOURS PERMANENTS 

10000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



s de plus! 
Rien de bien original dans celte 
formule, pourtant nous es- 
sayons de fake quelque chose 
de different : nous organisons 
un concours permanent (ous 
les mois el tous les trimestresl 
Etavec desprixdignesdespro* 
grammes que vous allez nous 
envoyer! 

De plus, ce seront les lecteurs 
eux-memes qui voteront pour 
leurs programmes preferes sur 
la grille recapitulative men- 
suelte. 

Pas de Jury, pas de decision ar- 
bitrage, HEBDOGIC1EL n'inter- 
venant que dans le choix des 
programmes qui devront etre 
ORlGINAUXet FRANCAIS. Si 
votre programme n'est pas tout 
a fait au point, un de nos spe- 
cialistes vous dira comment 
lameliorer pour pou voir nous le 
proposer a nouveau. 



Pour participer, il vous suffit de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation ainsi que toutes les ex- 
plications necessaires a 1'utili- 
sation de ce programme. 
Vous pouvez obtenir gratulle- 
ment des bons de participation 
en ecrivant au Journal. 
Bonne chance! 

Rerjlcment 

ART 1 HEBDOGIC1EL organise 
de lacon mensuelle et tnmes- 
tnelle un concours dole de prix 
recompensant le meilleur logi- 
ciel du mois et du trimeslre 
ART 2 Ce concours est ouvert a 
tout auleur de logiciel quelque 
soil le materiel sur lequel il esl 
realise L'envoi d'un logiciel en 
K7 ou disquette accompagne 
d'un bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye graluilement sur de- 



mande par la redaclion de notre 
journal constitue I'acte de can- 
didature 

ART. 3: La redaction d'HEBDO- 
GICIEL se reserve le droil de 
selectionner sur la base de la 
qualite etde roriginalileleslogi- 
ciels qui sont publics dans le 

journal. 

ART 4 : Ce sont les lecteurs qui, 
par leur vote, determinenl les 
meilleurs logiciels mensuel et 
Irimestriel. 

ART. 5: Le prix alloue pour le 
concours mensuel sera remisau 
plus tard un mois apres la clo- 
lure du concours mensuel. 
ART, 6: Le prix alloue pour le 
concours Irimestriel sera remis 
au plus tard un mois apres la clo- 
ture du concours Irimestriel. 
ART. 7: Le present reglement a 
ele depose chez Mailre Jauna- 
tre.t, rue desHalles 75001 Paris. 
ART. 8: HEBDOGICIEL se reser- 



ve le droil d'mterrompre a lout 
moment le present concours en 
en avisant les lecteurs un mois 
avanl 

ART 9 La parlicipalion au con- 
cours entraine lacceptalion par 
les concurrents du present re- 
glement 

HEBDOGICIEL: 27. rue du Gal 

FOY- 75008 PARIS. 

Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
fort pourcenlage de vote par 
rapport a la totalite des pro- 
grammes recus pour un meme 
ordinateur. 

Ainsi, pas de lavoritisme pour 
les ordinateurs plus puissants 
ou tres diffuses. 
Nous reviendrons plus en detail 
a la fin du mois sur le systeme 
de depouitlement du vote. 



BON DE PARTICIPATION 



Prenom ; 

Age . 

Adresse : 

n' J telephone : 

Nom du programme 

Norn du materiel utilise 

declare etre lauteur de ce programme qui nest m une imitation m 
une copie dun programme existant Ce programme reste ma pro- 
priety et j'autorise HEBDOGICIEL a le publier. La remuneration pour 
les pages publiees seront de 1 000 francs par page (un programme 
n'occupant pas une page entiere sera remunere au proralade la sur- 
face occupee). 
Signature obligatoire : 
(signature des parents pour les mineurs) 

Le programme doit elre expedie sur support magnetique (cassette 
ou disquette) accompagne dun Descnptil Delaille du Materiel uti- 
lise, d'une Notice d'Utilisation du Programme, et d'un emballage 
timbre permetlant la reexpedition du materiel non public 



RECOMMANDATIONS AUX LEC- 
TEURS QUI SOUHAITENT FAIRE 
PUBLIER UN PROGRAMME : 

• Indique2 sur le support 
magnetique lui-meme votre 
nom, lenomdu programme el le 
materiel auquel il esl destine 
Rien n'est plus difficile que d'es- 
sayer de charger un programme 
d'Applesur PC 1500 

• Notez dans les premieres 
lignes de votre programme, sous 
forme de REM. votre nom, le nom 
du programme et le materiel 
auquel il est destine. Nous pour- 



rons ainsi reperer facilement les 
listings, une foissortisde I'impri- 
mante. 

• Duphquez plusieurs fois sur la 
meme cassette et a des niveaux 
d'enregistrement differents 
votre programme. Nous aurons 
plus de chances d'arriver a le 
charger si les magnetophones 
ne sont pas tout a fait compati- 
bles. 

• Envoyez un seul programme 
par support magnetique et un 
seul mode d'emploi par pro- 
gramme. Votre lettre d'accom- 



pagnement et vos autres cour- 
iers doivent egalement etre 
separes car traites par d'autres 
services. 

• Joignez, si possible, un listing 
du programme et un organi- 
gramme. 

• Enfin, le fin du fin.expliquez les 
particularites de votre ordina- 
teur et le moyen d'adapter votre 
programme a d'autres ordina- 
teurs. 



TEXAS INSTRUMENTS OF- 
FRE UN MODULE (A CHOISIR 
DANS LA GAMME DES LOGI- 
CIELS Tl 99/4A) AU MEIL- 
LEUR LOGICIEL TEXAS DU 
MOIS. 



HACHETTE MICRO INFORMA- 
TIQUE OFFRE UN ALICE AU 
MEILLEUR LOGICIEL DU MOIS. 



SOUIRELLE RECOMPENSE LE 
MEILLEUR LOGICIEL DU MOIS 
PAR 2 CASSETTES A CHOISIR 
DANS SA LOGITHEQUE. 



LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGOR1E UN 
OUVRAGE A CHOISIR DANS 
SON RAYON LIBRAIRIE (EDI- 
TEURS : BORDAS, DUNOD, 
EYROLLES, MASSON, NA- 
THAN, PSI, SHIFT, SYBEX). 



DURIEZ CALCUL OFFRE AU 
MEILLEUR LOGICIEL DU TRI- 
MESTRE UNE MACHINE A 
ECRIRE BROTHER EP.22, 
2 KO DE MEMOIRE, INTERFA- 
CE RS . 232 . C. 



MARC LE HEN GAGNE PAR Ko ! 



LISTE DES LECTEURS AYANT PART1CIPE A LA 
REDACTION DES QUATRE PREMIERS NUMEROS 
D'HEBDOGICIEL: 



Frederic DARIN 


HP4I 


N"1 


1160 


Francois AROIET 


TRS80 


N° 1 


1380 


Pascal MELLY 


HP 75 


N» 1 


260 


M. CASTIGUONI 


VIC 20 


N» 1 


440 


J -M COHEN 


SPECTRUM 


N° 1 


280 


Nicolas CHATELAIN 


PC121I 


N-2 


420 


Bernard 0UPIN 


TRS80 


N°2 


1470 


Gilbert MAGGIO 


TI99 


N"2 


970 


J -M. JACQUET 


ZX81 


N°2 


590 


Ariel CHEMOUNY 


VIC 20 


N°2 


240 


Claude MACEY 


CBM64 


N°2 


520 


Marc MAIZ1ER 


HP 75 


N°2 


170 


Frederic DARIN 


HP 41 


N°2 


410 


Joseph HECTUS 


HP 41 


N°3 


550 


M BERNEZ 


VIC 20 


N°3 


280 


J.-F. GROUSSIN 


APPLE II 


N»3 


890 


Bernard PAQUAUX 


TO 7 


N°3 


450 


Andre MATHELIN 


TI99 


N°3 


520 


J P LALEVEE 


C-64 


N°3 


1430 


Laurent CHEMLA 


ORIC 


N°3 


570 


Alain REBOUT 


ZXBI 


N°3 


570 


Philippe PAULIN 


TRS80 


N"3 


260 


J.-C. JACQUET 


ZX81 


N°3 


330 


M.-C. PICKE 


TI99 


N°3 


710 


Nicolas STRONCK 


FX702P 


N°3 


290 


Michel FROMAGET 


TRSB0 


N° 3 


570 


M VETILLARD 


HP 41 


N°4 


350 


Philippe PAULIN 


TRS80 


N°4 


880 


Pierre VIOLENT 


TI99 


N"4 


530 


Yves QUEVILLON 


TI99 


N°4 


670 


Marc LE HEN 


ORIC 


N"4 


1080 


Jean DELATTRE 


FX 702 P 


N°4 


840 


Paul GARDAN 


PC12I1 


N"4 


680 


Olivier FRANCE 


PCI500 


N° 4 


430 


Michel STERMANN 


MZ80 


N"4 


920 


J.-F CHAPIN 


PC 1251 


N°4 


380 


Frederic MELINE 


CBM64 


N°4 


300 


J.-L. RICHETIN 


ZX81 


N°4 


290 


F FONTAN 


VIC 20 


N°4 


250 


Marc MACCARI 


APPLE II 


N°4 


530 


Gerard ROUGEVIN 


MPFII 


N"4 


620 


Christian RIVES 


G.P. 


N"4 


390 


Bernard DUFAUD 


GP 


N"4 


370 



Attention, la derniere colonne est la remuneration perdue, rToublio/ 
pas d'en parler a votre percepteur. il achete sOremenl HEBDOGI- 
CIEL I 



GAGNANTS D'UNE CALCULATRICE SOLAIRE CASIO 

Philippe MISANDREAU. 33370 TRESSES 

Franpoise FERRANDIS. 08200 SEDAN 

Roger RICHARD. 33000 BORDEAUX 

Guy MAZILLIER, 75015 PARIS 

Alain POMIROL. 33210 LANGON 

Mohamed BADA. 93300 NEUILLY/MARNE 

Michel LE PORT. 37000 TOURS 

Gdrard FERRANDEZ. 34500 BEZIERS 

Philippe PRUDHOMMEAU. 73300 PONT de BEAUVOIS1N 

Eric TOLLEMER. 77210 AVON 



GAGNANTS DES LIVRES "REGLE A CALCUL" 

-J.-F. GROUSSIN. 24650 CHANTELADE pour "APPLEII PARLE 

FRANCAIS" sur APPLE!!. 
-Jean DELATTRE. 59113 SICLIN pour "BIORYTHMES" sur 

CASIO FX 702 P 

- Francois FONTAN. 922I0ST-CLOUD pour -EPONGES"surVIC 20. 

- J.-P. LALEVEE. 70200LURE pour "BELOTE" sur COMMODORE 64. 

- Frederic DARIN, 31500 TOULOUSE pour "POKER" sur HP41. 
-MarcMEZIER. 75013 PARIS pour "DELREM' sur HP 75. 

- G6rard ROUGEVIN. 75007 PARIS pour "LABYRINTHE VIVANT" sur 
MPFII. 

-Marc LE HEN. 60100 NOGENT/OISE pour "LABYRINTHE" sur 
ORIC1. 

- Paul GARDAN, 08200 SEDAN pour "NIM" sur PC 1 21 1 . 

- J -F CHAPIN. I 7000 LA ROCHELLE pour "ACHAT DE VOITURE" sur 
PC1251. . 

- Olivier FRANCE. 75020 PARIS pour "FRACTIONS" sur PC 1 500. 

- Michel STERMANN. 75020 PARIS pour "MORSE" sur MZ80 

- Alain REBOUT, 55800 REVIGNYpour "SAFARI" sur ZX81 (EX-AE- 
QUO). 

- J.-M. JACOUET. 77400 LAGNY pour "TANK" sur ZX81 (EX AE- 
QUO) 

- J -M COHEN. 7501 2 PARIS, pour "MASTERMIND" sur SPECTRUM 

- Philippe PAULIN, 6740OILLKIRCH pour "DEMONS ETSORCIERS" 
sur TRS80, 



- Yves QUEVILLON. 50300 PONTIVY pour ■ FRANCE" sur TI/99 (BA- 
SIC SIMPLE). 

- Gilbert MAGGIO. 1 6000 ANGOULEME pour "MAGIBRIOUES" sur 
TI/99 (BASIC ETENDU). 

- Bernard PAQUAUX, 58000NEVERS pour "PEINTURE" sur THOM- 
SON TO 7. 



GAGNANT DU LOGICIEL TEXAS INSTRUMENTS 

Yves QUEVILLON. 56300 PONTIVY pour "FRANCE" 
gagne un logiciel a choisir dans la gamme Texas 



GAGNANT DU CONCOURS MENSUEL HEBDOGICIEL 

Marc LE HEN. 60100 NOGENT/OISE pour son pro- 
gramme "LABYRINTHE" sur ORIC 1 gagne 10000 
francs. 



J.-F. GROUSSIN. 24650 CHANTELADE pour son pro- 
gramme "APPLEII PARLE FRANCAIS" gagne UN 
ABONNEMENT A VIE A HEBDOGICIEL. 



suite du n°6 
COMPTABILITE 

MZ80 

291B IF f»5*-'N'TMEN INPUT-RECTIFICrtTIF ? 

CO/TO* ffQ* 

2920 IF ns«'-0-IHtMP<tlWI*»*:il-l =0010398 

793B IF nSi"'W'HEN21=fl:l.-«: PRINTfi":GO 

T0390 

?9ie no!0789a 

2950 G0T073ia 

J9fW PRlMtiPRINr^PRINT* ENfiEBlSIREnEHl 

JUSOU'CU :';X 
?9?fl 'HPUT">M « MMW» «W M MWWWnnn a n« IB O 
B'lXiXt-X 

298» UOPeM-EHKtEE COrTM* 
?99» PKINT--T XI 
38M) FOR X- B TO XI 
:tnio F-ftiNtxT nut-o.rmxi- 

3820 FOR r ii TOI 

303d PRINT/T in •<;<, ' '.hi ix, f ' 
3fl^B MCXI Y 

'H'.ii PRINT'! i'l »!;-). in i :■-» 
3BOB PRINT'T F1«(X),F1()0 

30?fl FOR r H T02 

389B PRIMT/T Ei«tX,T ),E I tX. T) 

309B NEXT V 

31BB PRInT/T /«3(X).BZ(X),C2(X),02(X) 

3MB FOR T-B TQ1.-PRINI.-T M«(X.T),rt3CX, T 



)*HEXTT 

312B FOR f'9 IP 3:PRIHTrT H3«1X, T ) , B3(X, 

r):MEXIT 

313B FOR T-8 105 :PRINT'T C3«(X,T) , C3CX. 

TUNJEXT r 

3MB FOR Y»8 TO OJPRINT-'T DMtX, Y ) , 031X, 

TlJNtXr Y 

315B FOR Y-8 TO 3 

3I6B PRINT'T «1«CX,Y) 

31 79 NCXT Y 

31 BB NEXT X 

31 9B CLOSE )Y-B 

3288 OOTOOB 

3218 UOPEN-EHTREE COnPTl* 1' 

3228 PRIMT-B- iPRIMT 'PRIMT iPRtNT SPRINT" 

»t SORTIE COWT* tt-iPRIMT 
323B ROPEN-ENTREE COffTft" 
3248 DinrtU(3H.fl1C3l>.BI*(31.H.81t3l.l 
1.01«(3I),01C311 

3259 Oin EHC31 ,2),EI(3I ,2),FI»(3I J.F1C3 
I) 

3706 0lfV»2(3l),B2C3I).C2C3l). 02(31 ) 
3228 HirifVUin , 1 },fl3(31. I >. 03(31 ,3),C3(3 
1,3),D3(3l,0),B3*(3I.3).C3«t3I.S) 
378B Din 03*01,01 
329B DIfKVl«(31,3) 
3388 INPUT'T XI 
3310 FOR X-a TO XI 
3328 INPUT'T l*l*(X),B1(X) 
3338 FOR T-8 TO I 
3348 INPUT'I B1«(X.Y),B1(X,T) 
3350 NEXT Y 

3308 INPUT'! D1*tX),DI(X) 
3378 INPUT'T F1*(X),FKX) 
3300 FOR Y-0 TO 7 



339B INPUI'T EI«(X,Y),EI(X,T)iNEXl t 
3488 INPUT'! P2(X).B2eX),C2(X),02CX) 
3418 FOR Y*B TOI'IHPUI'T A3*CX, YJ.n'HX, Y 

)»NEXT Y 

3478 FOR Y-9 103 

3438 INPUT^T B1*(X,Y),03(X.Y) 

3440 NEXT T 

3450 FOR Y-8 TO 5 

3400 INPUT'! C3t(X,YJ,C3(X,T] 

342B NEXT Y 

348B FOR Y-0 TO 

3498 INPUT'T D3*(X,Y),03(X,YJ 

3500 NEXT Y 

3518 FOR Y»B TO 3 

i:.7fl INPIJT'T A4*(X.Y) 

i'l id NEXT Y 
354B NEXT X 
3558 CLOSE 

3500 PRINT-B- -PRINT - ENREOISIRfnENT OU 
- ;i ; print - fu ' ;XI 
3570 PRIN!-B- 

35BB PRlNl'(l)C»«lER 1***\%' iPKIN! 
3590 PRINT'(7)Cr*MER tJCMTES* iPR JNT 
30BB PRINT'(3)CB»UE« TBBMBfRIE* 'PRINT 
30IB PRIHT-(4)OIH!e0. DC CMrtROES- i PflMT 
3870 INPUT -NUrtERO CKJISI 7 " ;(* 

3630 IF A- 1 BOIO3070 

3O40 IF 0-7 QOI044M 

3050 IF A-3 0OTO4020 

3000 IF B-i OOTCWtTB 

3O70 REfT'CBMIER O'PCHBTS* 

3000 PRINT *0» 

309* INCtlT' HCHWIS DU »|U 

32*0 INPUT' W -JWCOIO32I0 

Suite ;>.n;f 15 






203O CA-J2 

2040 rt-rt-l 

2043 COLL SOUND<-100, 1 I0.O) 

2030 IF fl>3 THEN 710 

7060 CALL HCHAF*C24.'»,B1' 

20 70 GOTO 710 

20BO IF CAOee THEN 21*0 

SOW fl-A-2 

2JOO IF A<0 THEN 7BO 

21 40 CA-32 

2130 GOTO 2O30 

2IAO IF CA-96 THEN 7BO 

2170 IF MOW IHEM 2240 

2 1 BO EAU-EAU-1 

7190 IF EALKO THIN 7BO 

2200 CA-32 

72IO IF EAU>3 THEN 710 

2220 CALL HCHAH424. 13,811 

2230 GOTO 710 

2240 IF CAOSO THEN 2320 

2243 IF R-l THEN 7BO 

2230 OC-i 

2260 IF C<0 THEN 7BO 

2270 CALL HCMAR<V-B8/4,X>AA/4,96) 

22SO D-D- I 

2290 IF C>3 THEN 780 

2300 CALL HCMARI2*. 17.91 ) 

2310 GOTO 7SO 

2320 CA-CA-121 

7325 IF <CA<l).<CA>3>00 THEN 7BO 

2330 ON CA GOTO 2340,2380.2420.2460.2300 

2340 CALL HCrttR<24,9,32> 

2330 A-20 

2340 CALL SOUND(-20O,30O,0> 

2370 GOTO 7BO 

23BO CALL COLOR (3, 4. 2) 

2390 R-0 

2400 CALL SOLHOC-200,300,01 

24 lO SOTO 780 

24TO CALL MO*AR<24,3,32) 

2430 F-ISO 

2440 CALL SOUND {-200,300.01 

24SO SOTO 7BO 

2460 CALL HCMAR(24, 1 7,32» 

2470 C-9 

2480 CALL SOUND'-2OO.3O0,0) 

24VO GOTO 7BO 

2300 CALL HCHAR<24, 13,32) 

2310 EAU-9 

2320 CALL SOUND(-200,3CO,0> 

7530 GOTO 7BO 

5000 CALL CLEAR 

SOlO FOK 1-1 TO 17 

S020 CALL COLOR(I,16,2) 

5030 NEXT I 

5040 PRINT -vous etn perdu!!*- 

3030 PRINT ::'t«ps: "IT 

5060 PRINT t:'il y *-(E!" *pnn*ai«- 

3O70 PRINT :" " i Di - ulMnj rWM 1 

3080 PRINT :::-fuel: -;F 

5090 PRINT i'vwwnt: " ; A 

3100 PRINT i-«a U : -jEAU 

3110 PRINT : -points construction: "sC 

5113 PRINT 

3120 INPUT -nouvelle partie? <o/n)-;T» 

3130 IF T«—-n~ THEN 5200 

3140 IF T»<>-o- THEN 3120 

31 SO CALL CLEAR 

S160 GOTO 140 

3200 CALL CLEAR 

5210 PRINT - FIN" 

S220 PRINT " 

S230 PRINT ::::::::::: 

3240 SOTO 5240 

6000 CALL COLOF<(3,6,2) 

60 10 R-l 

6020 FOR 1-0 TO 30 

6030 CALL SOUND (-10. 1 10*3*1, I I 



70OO FOR 1-1 TO 12 

7010 CALL COLOR* I. 16,21 

7070 NEXT I 

7030 PRINT • i 

7040 PRINT t- GUI 

705O PRINT j- 

706O PRINT 1 1 111! lid 

7070 FDR U-l TO 4f- 

.'-■no REAO DU.NO 

7090 CALL SOUNDIDU.NO.Ol 

710O NEXT U 

7110 PRINT "prti-er un« 1 

7120 CALL KEY(0,K,TE> 

7130 IF TE-0 THEN 7120 

7140 CALL CLEAR 

7130 PRINT " | 



Suite cle la page 8 



RINT 
7170 PRINT : 



IINT 






vou* (level " 



nt ditn 



20 de | 



7190 PRINT -ou avint 
72O0 PRINT i t I t 
7210 PRINT "preaaer unc touch-..." 
7220 CALL KEY (O.K, TE1 
7230 IF TE-0 THEN 7220 
7240 CALL CLEAR 
7230 RETURN 

10O00 DATA 223.659.73,6vS,30O,7B4,45O,7B4, 150,784, 150,880.150 989 300 1047 
1OO10 DATA 600. 1319.223, 1319,73, 1175,300, 1047, 600, B80.3OO. 1047 900 7B4 
10O70 DATA 223,659,75,699,300,784,430,784,150,784,150 880 150 9B8 300 1047 
10O3O DATA 60O. 1319,223,989,75, 1047. 300, 1173, 300. BSO, 300,988,300, 1 047^00 1175 
'3oo°7B4 TA 223. 10*'.". 1173,300, 1319, 450, 1319,150,1047, ISO, 1175, 130. 1047,600,880 
1047.300, 1173.600, 1047 



BALLE 
INFERNALE 



Muni de votre seule raquette, faites rebondir cette 
satanee balle le plus souvent possible! 
Le programme mis en route, mettez (a louche "ALPHA- 
LOCK" en position haute, sinon vous ne pourrez depla- 
cer la raquette. Le tableau de scores contenant dix 
noms vous permettra de vous mesurer a vos amis. 
Durant le jeu, vous commanderez la raquette a I'aide 
de la manette de jeu N° 1 . 

Ce programme est, a I'exception des "REM", compose 
suivant les regies de la programmation structuree. Le 
tableau des variables, la structure du programme et 
I'organigramme vous aideront lors des modifications 
que vous ferez ulterieurement (avec les "lutins" du 
basic etendu, par exempie). 
Amusez-vous bien... 

Serge HERLEM 





10 *£J" LA iiLL.1 IHFEiniAU 

<t) USUI HO 

3Q CALL JOTSTd.DC.Ol.) 

40 IF <l-M'K)*Z<l}ML-OT(0O*Z>2*)*'t>»<KJ*;u)-(C>W(K)* 

M fL-WMOlW 

« £•£•■£*( DC >*2 

70 CALL COMt{L.C>] 

60 T-T-l 

» IF I-v no J» 

100 CUl KMU{L,C.1*S) 

110 IF "0127 HO 1*0 

120 S«S'l 

1» GOTO ISO 

140 IF [ T *lDIS>2)-{*.-LDl»<3J)I>0 no 

1M XSIR— XDIR 

160 CALL 50U11DIXJ.3SO.OJ 

170 CALL CLEA« 

ISO IF (r.TDlR<l)'l>TDIfc>24)no 190 tLtt ;)0 

iw toi«— roi* 

200 GOTO 160 
*10 I-MDIR 

220 T-T-roia 

ZX CALL VCH«(T.«.l27) 



240 



6010 » 
CALL CtiAJt 
CALL tKAXtl27."3£70FFFfrFFJtX-) 
CALL CHW<l».'FFFFFFFFJFFFFFfF-) 
CALL SCKEOKl}} 
CALL C0LMI1.13. 
CALL C0L0I(11.7. 
FOR 1-7 TO 12 
CALL COlWfl.i.; 
MAT I 
RESTORE 



lll'IHIPHI-) 



o/al 



^ 



a RFTun 

PRINT "VOTO SCORE til [i[ \S 

FOR 1-1 10 10 

t> IF S>A(I )T>0 440 
» MOT I 
3 WHAT *XUL!- 
3 GOTO S20 

1 IF 1-10 DO 490 

J FOR >10 TO I'l STTJ> -1 

)A(J]-A(J-I) 

) *i(J)'AJ|J-l) 



I l-PUT -KMML7 WIRE * 

< Mi;)-l.Ei-.t(lI[l]S' — 
1 »(I)*S 
i FOR I-l TO 10 
FRWT A(I)iAl(|): : 



P«]»T ■«!■ COHTlWt- AFF4W' S 
' CALL UMQ.B.L) 
■ IF t I»0 10 tLSE MO 



•H'lMPOBTt OUILlt iguCNE* 




CHOISISSEZ LE PROGRAMME 
Tl 99/4A 

tarirs au 11/11/1983 

G Je commande les logicleb ou produits survants 

u Jc desire seulement une documentation sans engagement de ma part 



BON DE COMMANDE 



Lant^e 'C*icU 
(.5/67 M Si Omwfn 75O0S PAfh 
T« : 32568,8a T«e» 770 064 F 
ETRAV/I303 RAC 



PanJdpatton aux frals de port + 15 F. 

a-JoJnt mon regJement par ; CCP O CB D Mwxlat D 






Onlmtrur !*mlul 7t 



p^n-ieVwiien 
PAiHJ* 

PMA760I/FP UnM lim/<A 

PH* 7606 Ortf^tf. m^n V '/* |lf3| 

PMA 76I?A75 Mrffitjrt At 

iwi 2623 iaw * 



'>/ner#vj*<ii Or- pxrir 

lowjoNrlptvtfi iv 
rvA ji.jj 






■ ■ ■ ■ 



■ 
■ 



1 



If 18 *ni vgnMurr On parmi) 



1 1 WOO 

WOO 

'.4.00 

I : 






J077AA 
M2B/U 



I 



Orllqnjtton 



EXM4r>«gonwiMn( 



■ ■ 



I ■ 



■ 



i ;». '.,■ 
tSfLB 



I BUM 

iB3.no 

I8SAX 

■ 38 ( ., 



FT(M30) 

J0JJA7S 
WW MM 70 
PHM 30)7 
" W JO 18 
PMW 1019 30 

rt<M 

3047/lft }(, 



6047/lrt 

■ 
PHI 

I'll 
■ 



8Licli<Aiffc f<*r«, HI ."KjLns 
HUttJC j'lmlrptuBiuiip 
Htrxynxnn" JtudupOOu 
Connni4" /tin du "v-^jht^ 
V.tiiui-r ^nduKim 
TunnrJii'j(,*..m i 

■ I l,»i*ru 

I. Immlrfi 



■ 



rvK- 1 WO 



,■!■■■ .'.■:■! '• I. ■...-. tin -r, 



.... . . 



HMATI AOVFNTUPf 

■ 

■■■ ■ 

I 

■ ■ 

■ 



— _- 



FrliKT. 


T.TX. 




II2.M 
M7.9S 


1 14.00 




117.18 
M7.9S 

11748 
1 17.'« 


114.00 

IJ'.OO 

n'i» 

(.14.00 




» 1 J.1AB 


iiioo 
1 1 1 ,, , 




IMLW 
II19B 


lBd.00 

114.00 




It/'* 
7I7.4H 

isau 

11 MB 


134,00 




V174R 


■ J 










'■■ 


'■6. CO 





rtfM IOT'. W 



■ 
■ 



IlMHUCt, nijiajl 
I •Irndnl «■-.. 
InnwuffniiiUo 



■ ■ 



ftr r7M)rtrt«' 17/0 



. 
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7T.0.00 

waoo 



/V00 

1 1 12X0 
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ROLAND-GARROS 



CQMME NTAIRES SUR LE PROGRAl/UE 

£cf it en basic etendu sur un Tl 99/4A, le programme occupe p'alt- 
quementtoute famornoire.ee qui expliqu<" r»asde 

commenlalrol Certaines lignes depassont los 5 lignes (Tecran «u- 
lonsees el il (audra les renlrer en deux fois eenre 5 lign<- 

_^_ , "ENTER' puis appeler la ligne par redileur pour la completer 

, ._ , riK , _- , . . j. , D'autre pari, certaines parties duprogrammo semblent :rf 

Les irmunes sont pieines a craquer. La foule attend. La finale va commencer lagrande Finale et au bout ""^ eiiesnefompourtant pas double empioi En-' 
impatiente. Une chaleur torride s'abat sur le court cen- un af freux saladier mais aussi la aioirp la ,,sef u - ne P' oc6dlJfe unique qui auran Irarte Is service, lecnange. ie 

commentaires vont bon train 



Le brouhaha des conversations se transforme soudain 

en un immense hurlement ; la camera plonge sur le 

court les deux joueurs entrent. le visage crispe. les raquette, pardon, une poignee. et lancez-vous dans 

yeux regardant le sol pour ne pas se deconcentrer. les bataille... 

spectateurs sont debout, applaudissant a tout Prevoyez quelques rafraichissements le match sera 

rompre ; les joueurs sont assis sur leur chaise, la tete long ... 

plongee dans leur serviette pour faire le vide... 



Souvenez-VOUS, I'ete dernier, Roland-Garros! VOUS tion (service, echange. (Met relcYeVce,dyn~sunbuide7endrVle7oy 

VOUlez revivre ces merveilleux moments' VOUS voulez suffisammentrapideetpermetlre une bonne geslion des raquetles 

ZT^lV^ Z S e V eS '?'"" d6S Cham P i0 " S ? AIOrS - S^che '•ALPHA LOCK' dpit .„. r.ievee 

installez-vous devant votre ecran et prenez une 



Jacques JOLY 



BASIC EtENDU I 
Et ^OlONEES ' 

de JEU < 




T\ 



99/ 4 



CALL CHARl41."O0001ClC7C7ClCK 



■ 

■ ■ 

■ ■■ 
■ 

1030 nfM i 

■ 
■ 
i oeo d i f* r* (3> , 

■ ■ ■ . . 
. •:.•!. vi. <i> 

THEN 1B90 ELSE CALL LOC*TE(«, V3. Xl*4.»l 
1MO CALL S0UND(2O.-6.0)l: VL- t Yl - Y 3) «Z - j VC-(14S ,-,. 
* THEN VC-l6«SGN(VC> 

■i VL-I2>SGNCVL) 
. :■ CALL riOT10N<«2.-DV2«E,OX2«P,*3,VL,VCJt( if vyiw a 

:: VL-VL*T s: CALL P0SITIQN(*3, Y3, X3> 1 1 GOTO 1 1 JO 

DLL CHAK(4l.-0OO0te3C3C7E3C3C->1> IF Y3M41 fHEN call H0TI0N(»J,O.O,«.O.O 

• ■ ■ ' L S0UND(2O.-3.O)is SOTO 1890 

I • THEM CALL MOTION ■ ,0.0,»2.0,0>ll CALL LOCATE (#3. Y3. 122) : i CALL S 

CALL LOCATEteS. 142, tl2*RND>8>tl CALL BOUND (20,-3,0>M GOTO 1B90 

THEN CALL SOUND IF RNO .3 THEN VC-VC/ (Y3-I 261 ELBE Y3- 1 



CALL POSIT I 



IF ABS(VC)>1 



: ■ : 
WTO 1 

2,DX2,0Y2>ll CALL n0TI0N(«2.-DY2«E,0X2.F.«3,VL. 
-,*... - ■ 

H80 CAi ■ ■ ... . 19 AND X3>99 THEN T-T*DT n ' 

VL»T si GOTO 11 70 

-■•■■'■ .•-.::.■' [00 IHEN CALL SCUND(20, -3.0 



CALL C0INC( 



HEN 1B90 



CALL 90UN1 ■ .■■■:: 

VL--VL/ZZ I! VC-VC/ZZ ; 

CALL MOTION <*2.-DY2-E.Dxr.F.»3. VL.VC): 



CALL conic 



142 AND -■' ' Z39 AND X3>99 THEN T-T*DT : 



CALL P0SIT1 



IF absivc; 



GOTO I 

■ 

■ . ■ . 
- - ■ I TH 

■ 

13,0,0,02, 0,0) I I CALL SOUND(20,-^,.0) :: GOTO 2070 

1230 CALL no-: 0)i: call CHAR(41,-00003S3B3E3E3S3a") 

. ■ 
1260 IF 2O70 ELSE CALL LOCATE ("3. Y3. 12-1 . WZ, Y2, X2-2I 

1)11 WL»(Y2-^YS1»2 :: VC-(Y3-142)/XX :: T-0 : 
6 THEN VC-16-SV; 

-'^'■J^> 13 THEN VL-I2»SGN(VL> 
1290 CALL JOV5T tl.OXl.DYllii CALL MOT ION (•! . -Dvl •£, DX 1*F. «3, VL.VC) : : IF Y3<142 A 

N T-T-DT :: VL-VL-T :i CALL POB £ T 1 ON { t3, Y3, X31 I I GOTO 1290 
1300 CALL CHARI4 C-)tl IF V3,I41 THEN CALL MOT ION ( *3. O. O, ■ 1 . 0. O 

111 CALL LOCATE^*;. 142.X3): : CALL SOUND (20, -3, 0) : : GOTO 2070 

L310 IF -r :^<s THEN CALL MOTION (t3,O,0,#l ,0, 0) J 1 CALL LOCATE <«3, Y3, 1 2Q) : I CALL S 
OUND (20. -7,0>i j CALL LOCATE<«3,142, I38-RND«S1 l ■ CALL SOUND (20, -5, O) : : GOTO 2070 
£ THEN CALL SQUNL><20,-7.0) j: IF RNO. 3 THEN WC-VC/ t Y3- 1 7b) ELSE Y3-1 
: 

I.DXl.DYDii CALL M0TI0N{»!,-D/I«E,DX1»F,»3.VL,VC) : ( CALLCOINCt 
,C)tl IP C — 1 TMI ■■ 
,"LL POSJ TION(»3. V3, X3) :: IF Y3<142 AND X3>11 AND X3'.20O THEN T-T»DT !: i/L = 
VL-T :■. SOTO 1330 

I3SO CALL MOTIONCK.O.O.ei, 0,0)13 IF K3<i2 OR X3>199 THEN CALL SOUND (20, -5,0) : j 
GOTO 2070 

-L L LOGATE(«3, 142. /Tjs: CALL 30UND (20, -5. O) : ; IF X3<32 THEN 2070 
LOCATE (93, 141, X31) 9 'VL--VL/ZZ :: VC-VC/ZZ :: T-0 
13BO CALL JOYSTll. 0X1.0/1): : CALL «0TI0N(41 . -DV ! «E. DX 1 «F , «3, VL.VC) : i CALL COINC( 

• !.«;. a. cut if c— i ma 

CALL P09fTIQN(C3,V3,X3>* I IV Y3<142 (>UT> 'Zsll AND X3^200 THEN T-T*DT n VL- 
vl-T : ; GOTO 1 3B0 

.L nOTI0N(*3,O.O,*l,0,O)i: CALL SOUND (20.-3,0) : : GOTO 1890 
1410 JO-1 :: OISPLAY AT (2, 3)SI ZE (4) ; "S ■ :: DISPLAY AT (2, 24 J SIZE (4) : " " :: 

IF 11- ^ OR J2 »j rHEN 11,12*0 :: GOTO 1430 

1420 DI3PLA- ATr2,4,SIZE'2l :STP»U I - : : DISPLAY AT (2, 23) SI ZE (2) :STR» ( 12) : : TBI-TB 
1-1 :: IF !■&■, 2 THEN TB1-0 ;: GOTO 1430 
1430 BAL, VL.VC -O 

1440 CALL CHAPC11. "00001C1C7C7C1C1C" ) -. : CALL SPRITE ("t . 1 36. 7, 129, 33, O. O, «2, 1 36. S 
, 129.213,0.0.03, 1"0,2, 124,37,0.0) 

14SO SfiL-BAL*! tl VL— 14 :i L-0 :: DISPLAY AT '. 12, 2) BEEP: SEP* (BAD 

1460 CALL KEYtI,V,Wlll IF V IB THEN 1460 ELSE CALL SOUND( 1 00. 440, 01 1 : CALL HCHA 
P(I2,4.32, 13) 
1470 CALL JOVSTfl.D/I.DYI):: VL-VL-I n CALL M0T10N<43. VL.O. HI . -DYI »2. 01 : I IF VL 

; then 1470 
I4B0 CALL POSITIONi»3,Y3,X3)n IF Y3--141 THEN CALL MOTION I «3, O, O. ■ 1 . 0. 0) : I CALL 
SOUND (20.-3.0)!: GOSUB 2290 :: GOTO 1440 

1490 CALL JOYSTIl.DKl.DYl);: VL-VL*1 si CALL MOT ION ( »3, VL.O, *1 . -DY1 "2,0) I ! CALL 
KEYU.V.MlM IF 'J'-ia THEN 14G0 

1SOO CALL COINC !•! .D3.B.CI : : CALL SOUND (20. -6.0) : : CALL POSITION (» 1 . YI . X I ): : CAL 
L LOCATE <•] , i-l.33i : : CALL MOT ION ( «3, O. 0, •! ,0, 01 : : IF C--1 THEN 1320 
1310 CALL M0TI0N(43.VL.VCl :; VL-VL*! ;: CALL POSI T ION (43, Y3, X3> t ; IF Y3< I 42 THEN 

1310 ELSE 1480 
1320 CALL P0SITI0N(»I.Y1,X1.»3.Y3.X3): J VL-(Y1-Y3)»Z :: VC- ( 142-Y3) /XX n IF ABS 
IVC>>I6 Then VC-1A»SGN<VC) 
1330 IF A8S(VL>>12 THEN VL»12-SGN(VL) 
1340 CALL nOTION!«3.VL.VC)ii T-0 

1350 CALL J0YST(2,DX2,DV2)i : CALL MOT ION I »3, VL. VC, 42. -DV2»E, DX2«F) : i CALL POSITI 
0N!»3, Y3,X3)i: IF Y3M42 AND X3'116 THEN T-T.DT i: VL-VL*T it GOTO 1330 

I960 CALL CHAR(41,-00O0183C3C7E3C3C*) 

I",7'j CALL LOCATE'"! . 129,33) : : IF '3-141 THEN CALL HOI I0N(43, O. O, 42, 0. 0) 1 1 CALL L 

0CATE<»3. 142. *3): : CALL SOUND (20, -3. O) I : GOSUB 2290 II GOTO 1440 

1380 IF '3.129 THEN CALL HOT I0N(43. 0.0. 42. O, O) 1 1 CALL LOCATE (»3. Y3. I 22) : [ CALL H 

OUND (20, -7, 01 fl CALL 1 0CATE!«3, 142. I J2*RND»8) 

1390 IF V3-I29 Ti-IEN CALL SOUND <20, -3, 0) » i GOSUB 2290 it GOTO 1440 

1600 IF y- 126 THEN CALL BOUND (20, -7,0) 1 1 IF RN0>,3 THEN VC-VC/ (Y3- 126) I t L-l EL 

SE /3-130 t t GOTO 1580 

1610 CALL J0YST(2.DX2,DY2)i t CALL MOTION ( «3. VL, VC. 42. -DV2«E, DX2»F I t t CALL POSITI 

0NC*3,Y3,X3)ll :f Y3<142 AND X3'239 THEN T-T*DT ii VL-VL*T it GOTO 1610 

1620 CALL MOT10N<«3, 1',,',. : : IF V3'142 THEN CALL SOUND (20. -3.0) I 1 CALL M0TI0N(»2,O 

,0>ll GOSUB 2290 tl GOTO 144'. 

1630 CALL L0CATE(«3, 142.X3) t : CALL BOUND (20, -3, 0> 1 1 IP X3>1B6 THEN GOSUB 2290 it 

GOTO 1440 
1640 IF L'/l THEN 1210 ELSE GOSUB 2310 it GOTO 1440 

1630 J0*2 it DISPLAY AT(2,3)S1ZE(4) f " tl DISPLAY AT (2, 24)91 ZE (4) i "S " II 

IF JI- 6 OP J2' 6 THEN 11,12-0 n GOTO 1670 

1660 DISPLAY AT<2.4)SIZE(2tiSTR4M I>u 01SPLAY AT (2, 23) SI ZE ( 2> I S TP« ( 12) t i T82-T6 
2*1 t: IF TB2-2 THEN TBZ-O it GOTO 1410 
1670 BAL.VL.VC-O 

1660 call CHAR(41,"0000383e3E3E3e3S-)ii CALL SPR1T0IM1, 136,7, 129, 33, 0,0, 42,136,9 
, 129,216,0, 0,«3, 140,2,124,213,0,01 

1690 BAL-EtAL+1 :! VL — 14 tl L-0 :: DISPLAY AT ( 1 2, 16) &EEPi 9EP« (BAL ) 

1700 CALL v;EY(2,V.M) t : IF VOIB THEN 1700 ELSE CALL SDUND ( 1 00. 440, 01 I i CALL HCHA 



© 



® 



IB. 32. I 

CALL J0TST<2.DX2,DY2) : i VL-VL* I it CALL MOT ION ■ » .: . vl . ■ 



17H 

L 

• I THEN 1710 

.-; i P0BITI0N(»3,Y3,X3I 

.-5,0):: GOSUB 2290 t: GOTO 1A80 
1730 CALL J0YST(2,DX2,DY2) : : VL- 
KEY(2.V,H)(I IF ■/■ , 13 THEN 1720 

174--. cull co inc '•>.-, call sound ( 20 

L L0CATE(»2, Y2.2I6): t CALL MOT ION i ■•..,. ... > 
1750 CALL H0TI0N<43,VL.O)t: VL- v 
1730 ELSE 1720 

■ : QN(«2, '.-. ■!.»:. 
■ b THEN VC-16«BON I 



-DY2-2.0): 



M0TI0N(*3,0, ". ■- ,0,0)11 

CALL MOTI0N(43,VL,O,42,-0Y2»2,OI ;i 

-6,0)11 CALL POSITION'-. ■ 
,0,01 :: IF 0-1 THI N 1760 

. ■ ■ 

[421 /XX 11 1 



BfrS^eHOO 



CALL 



CALL S 



-1 EL 




1770 IF ABS<VL)>12 THEN VL-I 2*SGN( VL) 

1780 CALL M0TI0N(43. VL.VC): ! T-0 

1790 CALL JOYSTd.DXl.DYlln CALL M0TI0NOI3, VL . VC, • ! . -DY1 «E, DX 1 -F) t I 

0NI43, Y3.X3) t I IF Y3<142 AND X3>!34 THEN T-T-DT M VL-VL*T ■■ GOTO ! 

1800 CALL CHAR(41."0000183C3C7E3C3C") 

1910 CALL LOCATE (42, 129,218)1 : IF Y3>141 THEN CALL MOT ION (43,0, 0, 41 , 

LOCATE HI, 142, X3)il CALL S0UNDI20, -5, 0) ; : GOSUB 2290 n GOTO 1680 

1820 IF Y3>129 THEN CALL M0T10N(«3,0, O, »1 ,0,0) 1 1 CALL LOCATE (43, Y3, I 
0UND(20,-7,0)t: CALL L0CATE(»3, 142, 138-RND»B) 

IB30 IF V3>129 THEN CALL SOUNO<20, -5, 0) 1 I GOSUB 2290 i: GOTO 1680 

1B40 IF Y3>126 THEN CALL SOUND (20,-7, 0) ! : IF RND>.3 THEN VC-VC/(Y3-| 

SE Y3-130 :: GOTO 1 820 

1850 CALL JOYSTf t ,DX1,DY1>| t CALL J10TI0N(43, VL, VC, 41 , -DY1 «E, DX I »F) ; : CALL POSITI 

0N(»3,Y3,X3)t: IF Y3<142 AND X3>1I THEN T-T*DT t: VL-VL*T n GOTO 1850 

1B60 CALL H0TI0N(»3.0.0) II IF Y3'-142 THEN CALL SOUND<20. -5,0) 1 1 CALL H0TIDN<«1,0 

,0):: GOSUB 2290 II GOTO 1680 

1B70 CALL L0CATEC43. 142.X3) tl CALL S0UND<20, -3,0) I t IF X3<64 THEN GOSUB 22VO M 
GOTO 1680 

1880 IF LOl THEN 1370 ELSE GOSUB 2310 :: GOTO 1680 

1890 12-12*1 ti IF J2-6 AND Jl-6 THEN IF I2>6 THEN 2050 ELSE 2040 

1900 IF I2<4 THEN DISPLAY AT <2, 25) SI ZE (2) : T« < 12) t : GOTO 202O 

1910 IF 12>ll THEN DISPLAY AT (2, 27) SI ZE ( 1 ) I "A" :t DISPLAY AT (2, 6)SI ZE ( 1 ) I " " 

1920 IF 12-11 THEN DISPLAY AT(2,6)SIZE ( 1 ) : " " 

1930 IF I2-IK2 THEN 2020 ELSE DISPLAY AT ( 12, 9) SI ZE ( 1 7) : NJ2« :: DISPLAY ATU4.9) 
SIZE( 12) : "GAGNE CE JEU 11 :i J2-J2*l 

1940 FOR 1-1 TO 500 ■■ NEXT I u CALL HCHARt 12, 1 1 , 32, 1 7) : : CALL HfXAR 1 14, I 1 . 32. 1 
2) 

1950 DISPLAY AT (24, 20*M»2)SI ZE ( I I I STR» ( J2) : : DISPLAY AT (22, 20*M»2) SI ZE < 1 ) -.9TR4 (J 

1 ) : : IF J2<6 THEN 2030 

I960 IF J2-7 THEN 1990 

1970 IF J2-6 AND Jl-6 THEN 2270 

19B0 IF J2-JK2 THEN 2030 

1990 M-M*l :: DISPLAY AT ( 12,9) SI ZE ( 17) : NJ24 :i DISPLAY AT ( H 

E SET" :: M2-M2*l i: J2.J1-0 :t FOR 1-1 TO lOOO t: NEXT I 

2000 CALL HCHAR(12, 11.32, 17) it CALL HCHAR ( 14, I 1 , 32, 12) 

2010 IF M2>2 THEN DISPLAY AT ( 12,8) SI ZE 1 1 7) : NJ2» il DISPLAY * 

NE LE MATCH" t : GOTO 2530 ELSE 2030 

2020 ON JO GOTO 1430,1670 

2030 ON JO GOTO 1630,1410 

2040 ON JO GOTO 1410,1650 

2030 IF I2-IK2 THEN 2040 ELSE DISPLAY AT ( I 2, 9) S I ZE ( 1 7) iNJ2» u DISPLAY AT < 

SIZE()8):"GAGNE LE TIE BREAK" :t J2-J2*l 

2060 FOR 1-1 TO 300 :: NEXT I :i CALL HCHARi 12, 1 1 , 32, 17) : : CALL HCHAR (1 

III DISPLAY AT(24.20*M»2)SIZE(1) :STR»(J2) t I GOTO 1990 

2070 11-11*1 :: IF J2-6 AND Jl-6 THEN IF 1 1 >6 THEN 2230 ELSE 2220 

2060 IF IK4 THEN DISPLAY AT <2, 4) SI ZE ( 2 ) : Tt ( I | ) : i GOTO 2200 

2090 IF Il>12 THEN DISPLAY AT (2, 6) SI ZE ( 1 ) : "A" :: DISPLAY AT (2, 27)SI ZE ( 1 ! i " " 

2100 If" 12-11 THEN DISPLAY AT (2, 27) SI ZE ( 1 > : " " 

2110 IF Il-I2<2 THEN 2200 ELSE DISPLAY AT ( 12, 9) S I ZE < I 7) i NJ I • t : DISPLAY ATU4.9) 

SIZE(l2):"GfiGNE CE JEU- :: Jl-Jl+I 

2170 FOR I-I TO SOO it NEXT I II CALL HCHARf 12. 1 1 . 32, 17) t : CALL HCMAR( 1 4, 1 1 . Z7 , 1 



l.9>St7E< 12! | 



>.8)S!ZEU4),"GAG 



14.8.7.2. 



:STR«(J1): : DISPLAY I 



4,20+t1*2)SIZE(II 1STR4U 



: " POUR 




2130 DISPLAY AT (22, 20*M»2)SI ZE < 

2) :t IF JK6 THEN 2210 

2140 IF Jl-7 THEN 2170 

2150 IF J2-6 AND JI-6 THEN 2270 

2160 IF Jl-J2<2 THEN 2210 

2170 M-H*l il DISPLAY AT < 12,9)51 ZE ( 171 : NJ I • it DISPLAY AT ( 14. 9) SIZE ( 12) I "GAGNE C 

E SET" II M1-N1*1 :: J2.J1-0 tt FOR I-I TO 1000 it NEXT I 

2180 CALL HCHARI 12, 1 1 ,32, 17) i : CALL HCHAR ( 14, I 1 , 32, 12) 

2190 IF Ml>2 THEN DISPLAY AT ( 12, 8) SI ZE ( 1 7) i NJ1» :: DISPLAY AT ( I 4 ,B) SI ZE ( 1 4) : "GAG 

NE LE MATCH" t; GOTO 2530 ELSE 2210 

2200 ON JO GOTO 143O.1670 

2210 ON JO GOTO 1650, 1410 

2220 ON JO GOTO 1410,1650 

2230 IF Il-I2<2 THEN 2220 ELSE DISPLAY AT ( I 2,9) SI ZE ( 1 7) : NJ 1 » :: DIBPLAY ATII4.6) 

SIZE(IS) : "GAGNE LE TIE BREAK" :: J 1 -J 1 * 1 

2240 FDR 1-1 TO 300 II NEXT I il CALL HCHAR ( 12, 1 1 . 32. 17) : t CALL HCHAR( 14, 8, 32, 18 

):: DISPLAY AT (22. 20*H«2) SI ZE ( 1 ) : STRt (J 1) : : GOTO 2140 

2230 DISPLAY AT<!Z,10)i"D O U B L E" :t DISPLAY AT * 15, 1 1 ) BEEP: "F A U T E" :: FOR 
K-l TO 300 II NEXT y. i: CALL HCHAR ( 12, 12.32, 1 1 ) 

2260 CALL HCHAR ( 15, 13, 32, 9) t : RETURN 

2270 FOR 1-1 TO 5 t: DISPLAY AT(I1,7):"T IE B R E A K" t I CALL SOUND(-50, 1 10" 

1,0)11 FOR K-I TO 10 it NEXT K it CALL HCHAR< 1 1 .9. 32, 17) 

2280 CALL S0UND(-50, 220* I ,0) : i FOR V\ TO 10 :: NEXT K :t NEXT 1 :> tl.I2,IHl.n< 

2-0 :: IF JD-1 THEN TB2- 1 :i GOTO 1650 ELSE TBI-1 it GOTO 1410 

2290 IF BAL>1 THEN GOSUB 2230 li ON JO GOTO 1890,2070 

2300 FOR J-l TO 5 M DISPLAY AT i 12, 1 1 ) : "F A U T E" tl FOR K-l TO 20 :: NEXT K n 
CALL HCHAR(12, 13.32.9) ti FOR K-l TO 20 M NEXT K II NEXT J II RETURN 

2310 FOR J-l TO 3 ll DISPLAY AT(16,13)t"L E T" :: FOR K-l TO 20 t: NEXT K i: CAL 

L HCHAR (16. 13,32,3) II FOR K-l TO 20 it NEXT K it NEXT J il BAL-BAL-1 it RETURN 

2320 CALL CLEAR :: PRINT " ................." j •■ ■ JEU DE TENNIS • " i " 

*.....,........,•• ; : ; i : i i : i :i FOR I-I TO 1000 il NEXT I 

2330 CALL CLEAR il PRINT " SERVICE": i "POUR SERVIR, LE JOUEUR DOIT AP 

PUYER LE BOUTON P0USSO1R. "1 "A CE MOMENT, LA BALLE MONTE."! i 

2340 PRINT "CE JOUEUR PEUT ALORS BOUGER":"SA RAQUETTE VERTICALEMENT . "i i 
FRAPPER LA BALLE. IL"i "DOIT APPUYER UNE NOUVELLE"i 

2330 PRINT "FOIS LE BOUTON POUSSOIR, MAIS" ! "ATTENT ION, IL NE PEUT FRAPPER"t"LA BAL 

LE QUE LORSOUE CELLE- CI REDESCEND. " : i : 

2360 PRINT " ON UTILISE LE BOUTON" t "POUSSOIR UNIOUEMENT POUR LE SERVICE. "i : 

"APPUYER UNE TOUCHE" 

2370 CALL KEY(0,V,W):i IF W-0 THEN 2370 ELSE CALL CLEAR n PRINT " ECM 

ANGE"t : "AU COURS D'UN ECHANGE. UN" i "JOUEUR NE PEUT DEPLACER SA" 

2360 PRINT "RAOUETTE (HORI ZONTALEMENT. " : "VERT ICALEMENT OU EN OBLIQUE I " I "OUE LORS 

QUE SON ADVERSAIRE A"i"FRAPPE LA BALLE. "i i 

2390 PRINT "LA FORCE DE FRAPPE EST D'AU-"i"TANT PLUS IMPORTANTE OUE LA" : "RA0I1ETT 

E EST HAUTE, ET L* AN-" : "OLE DONNE A LA BALLE DEPEND" 

2400 PRINT "DE L'ENDROIT DE LA RAOUETTE" t "OUI LA FRAPPE f'l "DALLE 'SMASHEE' AVEC 

LE HAUT":"BALLE "LO^EE' AVEC LE BAS't I "APPUYEZ UNE TOUCHE." 
2410 CALL KEY(0,V,W>n IF M-0 THEN 2410 

2420 SER«d)-"l ER SERVICE" ■■ SER4(2)-"2 EME SERVICE" :: T»(l)-"13" :> T«(2)-"3 
O" it T»(3)-"40" il Z-I it ZZ-2 ll DT-.3 ll E.F-3 tl XX-1.3 

2430 CALL CLEAR n CALL CHAR (33, "FFFF" , 34.RPT4 ( "03" ,8) , 33, RPT« ( "O" , 12) fFFFF" , 36 
,RPT4("C0",B) ,37, , 'O3O3",3e,"C0C",4O, "0" , 41 , "O0O01B3C3C7E3C3C" ) 

2440 CALL CHAR(96,"O0OOOOB18teiBtei",97, "3C7E"tRPTt ( "F" , 12), 104. "FFFF", 103.RPT4! 
"18". 8) , 136,RPT4("0I", 16)&RPT*( , '0", 32) ) 

2450 CALL CHAR(140,RPT»("U". 1 1 It." I 0303030301 "K.RPT4 ( "0'' . 20) %. "90COCOCOCOB"&.RP T4 ( "0 
",ll))i: FOR 1-49 TO 33 it CALL CHARPAT ( I , At) i i CALL CHAR ( I *79, A»> : : NEXT I 
2460 CALL SCREEN(4)n CALL C0LOR(l,13, 1 , 2, 9, 1 1 , 3,5, 1 . 4,5. 1 , 9, 6, I 1 , 10, 16, 1 , 13, 2, I 
111 FOR 1-3 TO 6 tl CALL COLOR 1 1 , 2. 1 ) t I NEXT I 

2470 CALL HCHAR(I.3.33.29) i i CALL HCHAR (3, 3, 35, 29) I i CALL HCHAR ( 20. 3, 33. 291 i i CA 
LL VCHAR< 1 ,2.34, 19) t i CALL HCHAR (20, 2, 37) 
24B0 CALL VCHAR(1,32,36, I9)tt CALL HCHARI20, 32, 38) I 1 CALL HCHAR (20, 6, 1 04 ) : i CALL 

HCHAR (20, 10. 104) i i CALL HCHAR (20, 24, 104) I I CALL HCHAR (20, 2R, 1 r,4 ) 
2490 CALL HCHARI 16, I?, 1031 1 I CALL HCHAR I 1 •> . I /, 1<)5) t i DISPLAY AT (4, I ) i RP I * I " I I ■' . 1 
4li: CALL HCHARI4, 31.40);: DISPLAY AT (3, 1 >! RPT* ( " "4" , 1 4 ) 
2300 CALL HCHARI3, 31,96) i I DISPLAY AT (6. I I iRPTt (">(", 141 1 1 CALL HCHAR (6. ' .1 , 4 1 i : : 

DISPLAY AT(7. DiRPTII"* 1 ", 14) I t CALL HCHAR(7. 31 , 97) 
2310 CALL HCHARO.3,40.29) i : CALL HCHAft 19,3,33, 29) 1 1 DISPLAY AT (2. 91 i "ROLAND GAR 
ROS" II FOR I-I TO 3 ll CAM. HCHAR ( ? 1 . 20*1 «2, i 27*1 > I I NEXT I 

2320 DISPLAY AT ( 1 2, 8) t "NOM OU JOUEUR 1" ll ACCEPT AT(I4,0)BEEP 31 ZE ( 1 7 I I NJ I» ll 
DISPLAY AT(12,22)i"2" |> ACCEPT AT i I 4. 8) BEEP 91 ZE ( I 7) i NJ24 

2330 CALL HCHARU2, lo, 32, !",):: CAl.t hlhar (14. 10,32, 17) 1 1 DISPLAY AT (22, 14 LEN(NJ 
14))lNJI« il DISPLAY AT(24. 19-LEN (IIJ2* I I !)),!?• 

■ nAflNIPY(3)n RANDOMIZE ii IF ANCK.B THEN 1410 ELM 1690 

. . . w> s : IF w-0 THEN 2350 BLBI CALI I II CALL OELSP'- 1 N 

■ 



LABYNOIR 



L'aventure est dans le labyrinthe. Pour reussir, il vous 
faudra doser prudence et temerite... Sortirez-vous de \ 
cetenferavecle sceptre d'ORION.Ie code DELTA et la * 
liste sacr6e? 

Vincent LEV1GNERON 



Le programme, qui occupe 1 5908 octets, vous demande d'abord de 
choisir les objets que vous allez emporter dans votre aventure, vous 
pouvez choisir 5 objets parmi les cordes. lampes a huile. pistolets, 
sacs d'or, pieds de biche et poignards qui vous sont proposes Muni 
de ces outils. t! vous faut mainlenant sortir du labyrinthe ! 
Attention, il taut suivre scrupuleusement les variables proposees 
par I'ordinateur pour le choix des options (ne pas repondre par une 
lettre quand les menus proposes vous demandent de choisir entre 
des chiffres; car, faute de place memoire. toutes les responses ne 
sont pas testees et notre ZX 81 risque de s'arreter. 



^3T\ . 




PIECE U JOE, UNE T 



JCE ".'JOE. UNE P 
POIGNET EST REHP 
"^EILLE.ELLE NE 



^^RINT «T CODE "CCOM "••"j 

J PPU5E £00 

* CLS 

6 LET OPCODE " " 

8 LET OEjCODE " " 

9 LET 5R=CODE • " 
10 LET PjCODE " " 

12 LET KJ = COOE " •■ 

13 LET SIP=CODE " " 
1* LET FOR«CODE " " 

15 LET PI=CODE - " 

16 LET BQ=CODE " " 

17 LET I=CODE " " 
IS LET MaCODE " ™ 
19 LET NnCODE " " 
a© let mj«cot>e " " 

40 PRINT "3 CORDES LONGUES" 

41 INPUT Ft 

49 CLS 

50 PRINT 

51 INPUT 



LRMPES A HUILE" 

CODE" ■ "'■ PND 



S2 GOTO CODE "T 
iOT B) 

SS ^Rirj-T "UOU5 DEUEZ EN PRENDR 
UNE CAR LE5 COULOIRS DUE UOU 
2t l - e ;?_??r_y OIR PARCQURIR SONT 



RE5 OBSCURS 

SB GOTO CODE "N" 

59 CLS 

SO PRINT "1 PISTOLET 
^WECSESS RECMRRGES) 



( 1 COUP 



SI INPUT _ 

69 CLS 

70 PRINT "2 SRCS D OR" 

71 INPUT D 

72 IF D<>CODE " " THEN GOTO 75 

73 PRINT "ATTENTION , LES CONSPX 
SOUDOYRBLES 



RRTEURS SONT 
*74 INPUT 



SO PRINT 

31 INPUT 

39 CLS 

90 PRINT 

91 INPUT 



1 PIED-DE-BICHE" 



2 POIGNRRD5" 



lao if n + 

EN GOTO 11_ 

103 PRINT "yOU 
- OBJETS 
PUT US 



DUE 



C*D+E*F <=CODE 
NE POi 



Z PREND 



106 RUN 

iaae print •BUJfj 

1010 PRINT , , . , "LE DEPRRT: ENTRE 
S MASURE5 BISCORHUES .UN PRSSRGE 
3 ENFONCE DANS LE SDL" 
1030 LET Z«»"3*- 
1O30 GOTO B9 SB 

1110 PRINT , , , , "UNE CRUE A UIN.C 
E UIN N EST PRS BON" 

1120 LET ZS = " .3" 
1130 GOTO B9 BB 

1210 PRINT , ,,,-pIECE UIDE.AU FO 
■^D UN PRSSRGE DEROBE OUUERT." 

1223 LET Zi^"88G" 
1230 GOTO 8900 
1300 PRINT ",'^HB" 

1310 PRINT , ,,,"UNE SRLLE IMHEHS 
E.DE5 DIZRINES DE PORTEHANTEAUX 
UIDES,DE3 DIZRINES D HABIT5 NO I 
PS SUP L.EURS CINTRE5.SUR LE5 MUR 
i,CES MIROIRS.AUCENTRE DE LR PIE 
■"E,UNE TRRPPE. " 
1320 INPUT US 
1330 GOTO 6000 
134.0 LET ZS = "".7BU" 
1350 GOTO 8900 

1400 print "iB>iaaB" 
1410 print 



RNT. 



"UN E5CRLIER BRAN 

"OUE FRITES-UOUS-7 
J UOUS PASSEZ RRPI 



14.20 PRINT 

DEMENT EN 5 

14.30 PRINT "2) UOUS REBROU5SEZ CM 

eMIN. " 

14*0 INPUT I 

14.50 IF I THEN GOTO 5100 

14.70 CLS 

14.80 GOTO 23 0O 

1500 r-&;rrr "HOH9" 

1510 PRINT , , , , 

DONNANT SUR UNE 

CRE STATIONNE, 

PORTE. LE POSTIL-LON 50MH0LE 

1S14 INPUT US 

1318 PRINT , . , ."DUE FATTES-U0U5 



PIECE INOCCUPEE 
RUELLE OU UN FIfl 
JUSTE DEUANT LR 



I UOUS RE6ROU55EZ 



1520 PRINT 
" IN^-' 

INT "21 UOUS MONTEZ DRNS L 



1530 

E FIRCI 

IS40 INPUT I 

1S50 IF I=CODE 



THEN GOTO 620 



EGOUT.FORT CO 
PROFOND" 

OUE FRITES-UOU5 - ' 

UOUS PRSSEZ RfiPI 



1620 PRINT 

OEMENT EN '. _ 

1630 PRINT "21 UOUS MONTEZ OU DES 

CENDEZ LE COURRNT . " 

164.0 INPUT K 

1650 GOTO 6 3O0 t r 100 RND Kl 

16B0 LET ZS»"-/3U" 

1690 GOTH l)90B 



1700 


print "j^g^g- 


1710 


PRINT , , , , REMRROUER UNE PE 


TITE 


BOITE EN BOIS.UIDE. . . " 


1720 


LET ZS = " .B" 


1730 


GOTO 6900 


1B00 




1B10 


PRINT , , , , "DE L EAU GLRCPE 


rT PROFONDE . BOF . " 


1C20 


LET Z*="SY" 


16 30 


GOTO EO0H 


1900 

1302 


print -mi vmvi ■ 

PRINT , , , , "PIECE INOCCUPEE . 


1904. 


INPUT US 


1908 


PRINT , , , , "QUE PArTES-UOUS? 


1910 


PRINT ,,"l>UOUS PRSSEZ RRPI 


t-'EME 


JT EN 10." 


1930 


PR in r -;• i ■:•<■>-. ru '.t r Z POUR n 


saeRuen . ■■ 


LS30 


INPUT 1. 


194 


GOTO 1TI6B.I4 610 RND L-CODE 




. 6X " 



i! ,T0fl 

iyao goto »M0+tiM mn- >■ -code 

3000 PRINT Wj LP— t) 

3010 POINT , , , , "PieCE UIDE. UN CR 

ONDEMENT SOUp6 SE FRTT ENTENDRE 



2020 LET Z«='t4D" 

2030 GOTO 8900 

2100 PRINT "j^Snffi" 

?« B ™2 INT '■■-■"PIECE UIDE EMPES 

Si E rv£ nR ,,k OOEURIHPREGNflNTE DE T 

RS DE UIRNDE. UNE TRRPPE OUUER 

2115 LET N=CODE "" " 

2120 LET ZS="*3" 

2130 GOTO B9 00 

2200 PRINT "[BH^nBS" 

2210 PRINT ,,,,-UNE CRUERNE HUNI 



OUE FRITES-UOUS'> 

,;;uuous prssez rrpi 



2220 PRINT , 

C-EHENT EN 13 

2230 PRINT "2) UOUS RESTEZ POUR O 

35ERUER. " 

224.0 INPUT M 

2360 GOTO 2370* (4.230 RNO M=CODE 

2270 LET ZS="17" 
3280 GOTO 89 80 

2300 print •■[■^aSBBB" 

2310 PRINT , ,,,"PIECE UIDE CONTE 
NRNT SEULEMENT UNE TRBLE ET UN 
COFFRE MURRLE^DEURNT LEOUEL. SONT 

POSEES DEUX BOTTES WRCULEE5 DE 
30UE. " 

2330 INPUT US 
2330 GOTO 6700 
2340 LET ZS=";3CX" 
2350 GOTO B9 0O 

sdaa print "BeSBBHS" 

2410 PRINT , , , , "PIECE UIDE." 

Jr420 LET Zt = "/5- 

34.30 GOTO 89 00 

2530 PRINT IStiJSMSS' 

2510 PRINT ,,,," UN RRT GEHNT S H 

PPRETE R UOUS SRUTEP R LR F IGU 



2320 



INPUT 



2530 GOTO 6800 
2540 LET ZSs-StREN" 
2S50 GOTO 69 00 ^^ 

3610 PRINT , , ./'PIECE UIDE." 
2820 LET Z»-"afiEN" 
2630 GOTO 6908 .-^- 

2710 PRINT , . , , "flPRES RUOIR TRRU 

ERSE L OSSURIRE ,UOUS PRRUENEZ RU 

TEMPLE DE TRRU-ERS.S Y TROUUE U 

NE IDOLE BRNCRLEET DU MOB1LIER.. 

2720 INPUT US 

2730 GOTO 6900 

374.0 LET ZS = "S9EUKP" 

2750 GOTO 890- 

2800 PRINT "[T „ 

2810 GOTO 2830 

RND M=CODE 

M=CODE "• "I 

2830 PRINT , ,,,"UN PRSSRGE GLI5S 

RNT. IMPOSSIBLE DE PR55ER ( IL UOUS 

FRUDRRIT RUOIR UNE CORDE)." 
2Q34 LET ZS=" *0" 
2536 GOTO 8900 

2640 PRINT , , , , "UN PRSSRGE GLISS 
RNT. UNE CORDE EST RRRIMEE R L 
ENTREE. LE PRSSH-GE EST POSSIBLE. 



"=o rwini , , , , UN PRSSRGE GLISS 
RNT.IL FRUT RR- RIMER UNE CORDE 
* L ENTREE, OUE UOUS LRI5SEREZ L 

2850 LET fl=R-CODE "■ " 
2370 LET M=CODE "■ " 
=680 LET Z$="t^0" 
2B8S GOTO 69 00 

2900 PRINT "PH^PJPfS" 

"UN ESCRLIER.OB5C 



2910 PRINT 



UOUS REMRRIDUEZ UNE O 



UOUS 



= 9«v)iPRiHT 1^1 Ml a - 

3910 PRINT "UN ESCOLJER.OBSC 

ottlR 0§ X gIz"V° US ' REM « R ^UEZ UNE O 

2930 LET N=CODE ■■• ■■ 

293S INPUT US 

2940 GOTO 700C 

=■930 LET ZS = "6" 

^'^■5v? GOTO 3900 

30Q0 PRINT m I !■■ 1 1 

3010 PRINT , , , , "DlV CHTHUA ^n*n- 

3040 GOTO 8900 

305O PRINT , , , , " 

EUORENT. " 

3060 GOTO 9999 

3100 PRINT "MngjH" 

3110 goto ui.-'n,! . , niir-n ■■ ■■ flMr, v ,, 

-■130 LET KU=CODE " " 

3140 PRINT ,,,,'LINE CRUERNE RRT T 

ZZ9£SUk£ ■ * L Htrfm CORDE POUR D 

CSCENDRE,OUE UOUS LRJSSEZ Lfi 

UOUS REMRROUCZ UNE MflNETTE FT II 
N.BOUTON ROTRTIFGRHOUE DE 1 R60 

31*2 LET Rnfl-COOE "• •' 

J145 GOTO 3160 

J1S0 PRINT , , , , "UNE rflUERNE RRTI 

FICIELLE.UOUS REMRRSUH UNE MR 

NETTE ET UN POU-TON ROTRTIF GRftD 

UE DE 1 fl 60." 

3170 GOTO 0000 

316© LET Z*="39 M N" 

3185 GOTO 8900 

3190 PRINT , , , ,"L'NE rfilirHNF RRT T 

felil5kfe5-. : 5fe.ii A & r SS= C0RPE N P0UR T 

0210 PRINT ,,,,"UN GJGRWTESOUC P 
ROUETUOUS INUJTE R FRIRE LES C 



OR NOT CO THEN GOT 



BMf Pfl5 
3230 IF NOT 
5 ifSfl 

3230 INPUT U 

3240 GOTO 71l 

3230 LET Z«=."MOPT" 

3260 GOTO 690" 

-33O0 PRINT ■"■ 

3310 IF P T. 

0320 PRINT , , 

*"5E* PCRMee.IL FRUT 3 Hi 

gyUB [R, SOUDfl fNUOUtl .-c 1*1 [..■ UN 
PgegeNCE h ur»:, ci.'it. ■... i .i un 

f|2S Sfeffl Ri' u ■'- t ' : '■^•■■-■ 

33BO GOTO 33#4-(C0DE "S" HMD OS ' 



"LINE PRNPE DE SAP 
SUIT LE COURS OE 
■ - - - - EMPECHE D 



II 3"N"J 

3370 LET P=CODE 
3330 GOTO 3394 
3390 PRINT , , , , ' 
PRPPE OUUERTE. " 
3394 LET Z*=" *D' 
3396 GOTO S90P 
3 4 00 PRINT — 
3*10 PRINT 
ORTE DONT lm 
LRCEE PRR UNE 
3 OUURE PRS. " 
3430 INPUT US 
3*30 GOTO 720O 
3500 CLS 
3505 PRINT m& 
3510 PRINT , , , , r-j 
RE.PLEIH DE REBUTS 
= S 5 ELOIGNEhTT . " 
3530 LET Z«="fiFKHP" 
35*0 GOTO 39 00 

3610 PRINT ,,,,"UNE TRES BELLE C 
RYPTE DU XI SIE-CLE.L'/IE GRILLE E 
MPECHE D RLLER EN 23. LE COURRNT 

E5T IMPOSSIBLE P, REMONTER." 
3620 PRINT "UOUS NE FOUUEZ RLLER 

OU EN 18." 
3630 INPUT US 
3640 CLS 
3650 GOTO 37ft« 
3700 PRINT 
3710 PRINT . . 
LE , PRflTIOURBLE , _ . 

LR RIUIERE.UNE GRILL 

flLLER EN 27." 
3720 LET ZS="LOP" 
_-73 GOTO 39 QQ 

? 9 J2^5 RINT ---."UN BOYRU GLISSRN 

T, IMPOSSIBLE R MONTER SORT DE L 

R PRROI.SUR UN STALAGMITE , UN BO 

•JT DE L HRBIT DEUICRMBOLO. * 

3320 INPUT US 

3330 GOTO 7300 

38*0 PRINT , ,"UOUS NE POUUEZ ALL 

ER 0U""EN 28." 

3345 INPUT US 

3647 CL5 

3650 GOTO 37 QO 

3900 PRINT " B^M 

3910 PRINT , , , , 

CAGOULES.L UN 
5 EXCLRHE: < -tLES 

rres . > > ■■ 

3-920 INPUT US 
3930 GOTO 7*00 
39*0 LET ZS="FOOTU" 
3950 GOTO 89 QO 
*O0O PRINT "S5SHHB" 

*010 PRINT , ,,,"UINST GARDES, flUI 
UOUS ONT ENTEN-DU MARCHER. ILS U 
OUS ATTAOUENT." 
4030 GOTO 99 99 

*110 PRINT , , , , "SOLiDAIN,OES BRUI 
TS DE PAS UENRNTD ON NE SAIS OU . 

*lSO INPUT US 

4.130 GOTO 75 00 

■1-2 00 PRINT "SBaHS" 

*210_PRINT_,^, . "DES RUINES ROMAJ 



UNE RSSEMBLEE DE 
DES PERSONNRGES 
CALOTTES SONT CU 



EFFRITEE. 



NES,EN PIERRE 
4213 INPUT US 
*215 PRINT , , , , "OUE FAITES-UOUS? 



UOUS PRSSEZ RRPI 



THEN GOTO 76 



'ESTIBULE. " 



4320 PRINT , 

DEMENT EN 33 

4230 PRINT "21SINON 

42*0 INPUT YY 

•1250 IF YY=CODE "" " 

00 

426© LET ZS="FMOT" 

4270 GOTO 39 00 

4300 PRINT "H9=HBHB 

4310 PRINT , , , , "UN ' 

4320 LET ZS="MMNVZ" 

4330 GOTO 3900 

**00 PRINT " 

B" 

4*05 PRINT ,,,,"51 UOUS AUEZ LES 
TROIS RELIQUE5, UOUS fl^lEZ GAGNE 

UNE HANCME CON- TRE LES 5INI5TRE 

5 CONSPIRATEURS DE L " "OMBRE ... " 

4410 GOTO 4470- (CODE '?-' AND OR = 

CODE " " AND FOR=COPE "" " AND CD 

=CODE "• " AND SA^CODE "• ") - CCODE 
"R" AND OR=CODE "" " AND CD =COOE 
"*" AND SR=C0DE "* ") 

4*15 INPUT US 

**30 CLS 

**25 PRINT , , , , "UOULEZ-UOUS TENT 

ER UOTRE CHRNCE ENCORE LINE FOIS7 

**30 INPUT US 

**3S IF U|(1)'"0" THEN RUN 

4440 PRINT AT CODE "E'.CODE — ■■ ; 

"TANT PIS" 

4*45 PAUSE 100 

4*50 NEU 

**5S PRINT , , 

,LE SPECTRE 

-■ RUEZ EST UN 

4*60 INPUT US 

4*65 GOTO 442i 

**70 PRINT 



"-MALHELIREUSEMENT 
D" "ORION OUE UOU 
FALIX 

, "MAIS CE N""EST P 



■»■*/» f-k Art l it,, nnjlif L c N C9 I 

AS UOTRE CA£-,IL UOUS EM MANQUE. 



**75 INPUT US 

4*80 GOTO **30 

4*99 STOP 

45O0 PRINT 

*510 PRINT 



MANDARIN NEBL' 



LEUX ET ENCMhINEUOL'S RECLAME. 

*520 INPUT US 

4530 GOTO 7700 

*5*0 LET ZS="FMOP" 

4S50 GOTO 39 00 

4600 PRINT " W«1»I3 " 

4610 PRINT ,,,,-LE PETIT BELUEDE 

RE DU PflRC.DE- SERT A CETTE MCU 

RE. UN PASSAGE DEROBE OUUERT." 

4©20 INPUT US 

4630 LET KU=C0DE "■ " 

■16*0 CL.3 

46S0 GOTO 31 00 

1700 print "MuTjinwSH" 

*710 PRINT , , , , "LA SALLE DES GRA 
UATS. " 

4720 LET ZS="MO" 
4730 GOTO 39 00 
4800 PRINT ■■JM-tttM" 

4810 PRINT ,,,,"UOUS REMAROUEREZ 
UNE FORTE ODCURDC GAZ DANS CE C 
OULO IR OBSCUR . " 
4820 INPUT US 
4O40 GOTO 70 00 
*900 PRINT "IltJLilUKJrJ" 

4910 PRINT ,,,,'UN PLUTS PAS TRE 
S PROFOND. ON PE-UT SAUTER EN PflS 
,MAIS IMP055IPLEDE REMONTER . " 
*930 PRINT , , "SAUTEZ-UOL'S?" 
*930 INPUT RS 

49*0 IF RS(1J="0" THEN GOTO *9BO 
4950 LET ZS="2BCX" 

4969 GOTO 6900 

4970 CLS 

4980 PRINT "CE PASSAGE I1ENE EN 4 

a. " 

*990 INPUT US 

4994 CLS 

5000 PRINT " CI41PW 

5010 PRINT , , , , "UNE ARMOJRE NORM 

ANOE EST AMARREESI UOUS L ARGUE; Z 

LE5 AMRRRES.LE COL'RANT UOUS EMM 

ENE CN 87." 

9030 PRINT , , "LRRGUEZ UOUS LES A 

MARRES-7" 

5030 INPUT OS 

5040 IF Q*lli ="&■■ THEN GOTO 5070 

5050 PRINT , , , , "UOUS NE POUK'CZ A 

LLER OU""eN 9." 

5055 INPUT US 

50B7 CLS 

?3060 GOTO 180O 

■J070 CLS 

•5080 GOTO 3600 

s too print -ana 

5HO PRINT , , , , 



ZX81 



OIBLIOTHEOUC 



5120 PRINT "LE SINGE UOUS A-T-JL 

3UIUI. . . . " 

•5130 INPUT US 

51*0 IF P THEN GOTO 730O 

51B0 PRINT ,,,,"UOU3 NE POUUEZ A 

LLER QU""EN 34." 

5130 INPUT US 

7160 CLS 

5170 GOTO 4300 

6003 PRINT , , , , "OUC FAITE3-UOU37 

6010 PRINT ,,"UUOU 
CHBHIN" 

6013 PRINT "2) UOUS RESTCR POUR O 
EVjERUCR" 

6030 PRINT "3JU0U3 OWRCZ LA TRA 
PPC" 

sags muni b 

O037 IF 0>CODC "■" OR CUCODC "• " 

THEN GOTO 6033 



6030 GOTO 6049* ICOPE f AND »C 
ODE " l "l-l47Se AND B=CODE - * - i 
■3039 CLS 

£040 PRINT , , . , DES DIZRINES DE 
TUEURS FRNRTI- OUES.IL5 DEBOUCH 
E'TT EN HURLANT." 

6045 GOTO 9999 
5047 CLS 

6046 IF 3IF=CODE "• " THEN COTO 1 

r^'S-,^^^^' ' • •" UOUS REMftftOUEZ D 

ES M^B ITS RUX POCHE5 PfMRLIES. 

UOUS TROUUEZ UN ETRRnGE SIFFL 

5055 LET SIF=CODE "• " 

5350 GOTO 13*0 

£100 CL3 

-MIO PRINT , , , , " LA 13EME MAR 

CHE CEDE. . . '• 

5 115 GOTO 9999 

Baefi cls 

6210 PRINT ,,,,**5ANS UN MOT.LC C 
OCHER DEMRRRE. SL'R LE SIEGE DE 

CUIR.UN BILLET SUR LEOUEL EST I 
N5CRIT,-;LE PETTrTPACMQ EST MORT > > 
-OU LONG DU PRUENOCTURNE ,PUIS DE 
S ALLEES OU PARC , LE FIRCRE UOUS 
MENE EN 39 PUIS REPART AUSSITOT. 

6215 INPUT US 

S220 LET G=CODE "R" 

5225 LET KU=CODE "* " 

-7-2-0 GOTO 9000 

6300 CLS 

6310 PRINT ,,,,"AU BOLT D UNE ME 

URE.UOU5 ETES FATIGUE, GELE ET 

UOUS SENTEZ HAU-UAIS. . . " 

6320 GOTO 16BO 

ilOO CLS 

6*10 LET B=B-CODE "• " 

6*15 PRINT , , , , "RU MILIEU, UOUS O 

LI3SEZ ET UOTRE LAMPE A HUILE C3 

T ENGLOUTIE." 

8430 GOTO 6*30* (2070 AND B =CODE 

6430 PRINT , , "HEUREUSEMENT UOUS 

EN POSSEDEZ UNE AUTRE . " 

6435 GOTO 1680 

5500 CLS 

6510 PRINT , , , , "LES SABLES MOUUA 

NTS UOUS ONT INSENSJBLEHENT E 

NGLOUTI. " 

6520 GOTO 9999 

6600 CLS 

5610 IF FOR THEN GOTO 665© 

5615 LET FOR=CODE "■ " 

5630 PRINT ,,,,"'UOU5 REMAROUEZ U 

NE PIERRE DISUO-INTE PI55IMULRNT 

UNE CACHE. DEDANS: LE SPECTR 
E D ORION." 
6625 GOTO 1960 

56S0 PRINT , , , , "UOUS REMRROUEZ U 
NE PIERRE DISUO-INTE DI3SIMULANT 

UNE CACHE. UIDE. " 
56S0 GOTO I960 
6700 PRINT ,,,,"OUe FRITES-UOUS? 

6705 PRINT ,,"1)U0US REBROU5SEZ 
CHEMIN" 

6710 PRINT "3) UOUS RESTEZ POUR O 
UURIR LE COFFRE" 
6715 INPUT O 

6730 IF O-CODE "■ " THEN GOTO 33* 


6723 CLS 

6735 PRINT , , , , "UOS DOIGTS MABIL 
ES L OUURENT EN 1/* D HEURE . DEDA 
"*■' DIRMANT DANS SON ECRIN." 



6735 PRINT , , " H UOUS PRENEZ LE D 

IRMANT" 

67*0 PRINT "31 UOUS FERMEZ LA POR 

6745 PRINT "3JU0US RESTEZ POUR O 
BSERUER PLUSLONGTEMPS" 
6750 INPUT M 

L'755 GOTO 6770+ (CODE "~" AND M=C 
ODE "•")-(*430 AND H^CODE "■") 
6765 CLS 

6770 PRINT , , , , "UOUS R5MAROUEZ U 
N MECANISME SE- CREI'.UNC TRRPPE 
S OUURE ET UN COULOIR UOU3 MEN 
E EN 6 . " 
6772 INPUT US 
6775 LET G=COOE "V" 
6778 GOTO 90O0 
67BO CLS 

6785 PRINT ,,,,"DEUX MACM0IRE5 D 
ACIER UOUS SEC-TIONNENT EN 2 MO 
RCEAUX. " 
6790 GOTO 9999 
t>805 PRINT ,,,,"OUE FRITES-UOUS? 

6807 PRINT , ,"l)UOU3 LUI LANCEZ 

UOTRE LAMPE A HUILE." 

6810 IF C=CODE " " AND F=COOE " 

" THEN GOTO 6830 

6813 PRINT "2»UOUS L ATTAOUEZ AU 

EC UOTRE ARME. " 

6330 INPUT I 

6670 GOTO 6390- (CODE '■ " AND I »C 

ODE •'•") 

6080 CLS 

0803 PRINT (i ,,"ELLE SE DRJSE ET 



6890 PRINT ,,,,"IL LUI EN FAUT i-> 
LU5, HELPS. " 
6895 GOTO 9999 

6905 IF HU = CODE " •■ THEN GOTO 09 
20 

5910 LET MU = CODE ■■ " 
09 13 GOTO 2740 
6930 CLS 

6932 PRINT , , , , " INTERROMPRNT UOT 
RE < <TOURISME> > ,UN COLTERU UOUS 
GLISSE ENTRE LCSCOTES . AUANT DE N 
OUS OUITTER UOU3EKTREUOYEZ UOTRE 
RGRE35EUR. IL PORTE UN HAOI 
T NOIR ET DE3 BOTTES DOUEUSE3 
AUEC UN AIR DE DEUA UU . " 
8935 GOTO 9999 
7000 PRINT ,,,,"OUE FRITCS-UOUS? 

7010 PRINT ,,"UUOU5 V ALLEZ SAN 

3 AUTRE ACTION" 

7015 PRINT "3) UOUS REDR0U53EZ CM 

EMIN" 

7020 PRINT - 3)U0US Y ALLEZ EN TA 

ISANT AUTRE CHOSE" 

7022 INPUT G 

7030 GOTO 7037t(CODC "P" AND G -C 

ODE " r "> -(*0B7 AND OPCODE "*"1 

7037 CLS 

7040 PRINT , , , , "OUE PArTC3-UOU37 



704S PRINT 
DEMENT- 
7050 PRINT 
E LAMPE" 
7055 PRINT 
7060 INPUT 
7063 IF PC 
90 

7070 PRINT 
CE COULOIR 
7073 LET ZS 
7000 GOTO 
70g0 CL5 
7092 PRINT 

A MUILE7BE 
709S GOTO 9 
7106 PRINT 
NE LAME DE 
LA RETIRANT 

UOUS — 



, , "1> UOUS AUANCEZ PRU 

-3) UOUS ETEIGNEZ UOTR 

"3) UOUS COUREZ" 

P 

CODE " "" THEN GOTO 70 

,,"L ODCUR 3 ESTOMPE, 
Ufl DE SO A *0." 



, , AUEC UOTRE LRMPE 
LLE EXPLOSION. " 
999 

, , j , "UOU3 RCMAROUCZ U 
PAHOUET DISUOINTE.EN 
AUECLE PILP-DC-DICME 
l_l. SPEC I f!L D ORI 



7110 LET OR"CODE "" " 

7130 GOTO 3350 

7200 IF S IF -CODE "" " THEN GOTO 7 

330 

7310 PRINT ,,,,"U0US N""AUEZ AUG 

UN MOYEN POUR L " "UUUR IR . " 

7330 INPUT US 

7333 CLS 

7H30 PRINT ,,,," UNE PATROUILLE 

5URUICNT. . . " 
7340 OOTO 9909 

7350 PRINT , , , , "EN UTILI3ANT LE 
6IFFLET TROUUE EN * LA PORTE 3" 
"OUURE. . ." 
,'2<iO INPUT US 
736U CLS 

■-OTO 4*00 

■l DE THEN OOTO 7330 
7510 PRINT ...."5 EST UNE POCHE , 

i DRNSiLC CO-DE DELTA." 
7320 LET DE*CODE "■ " 
7333 GOTO 3O40 

INT ,,,,"C E3T UNE POCME, 

73*0 OOTO 3040 
7400 PRINT 



«ooi mm ■ uou37 

■ 



MICROMUR 



Branchez votre PC 1500, chaussez vos meilteures 
lunettes et essayez de dernolir le mur qui se dresse 
devant vous. 

Jean-Marc VERNIAJOU 

Parlicularrf.es de ce programme 

Ouand vous aurez cietruil bnque par bnque le premier mur un 
deuxieme wus est propose amsi qu'une balle gratuile Par la Bulte 
vous ne benelicierez que dune demi-balle par mur cletruit jLisqu'a' 
concurrence de 4-5 balles en reserve Les balles en reserve sont 
dessmees sur la orermere colonne de I'ecran. 



La raquetle se rapproche du mur au fur et a mesure que vous enla- *R" "U" "N" "ENTER" 

mezdenouvetlesranqeeyiJebnques.elteretrecitduntlersdesque "01 

£bal«Tr«w« a H«^ \}?j£, ' Le P'°3'amme demarre aulomittqwrnwit trie* . 

nA.fr it JJ-.S. Ih .1*° e ' ZJ re P e,,l,on automatiquo hnstruclion "ARUN" placee tout a fort au debut ) 

(pour I occasion} Elle pei ■ : un point sur chaque bord Pour larreler. "ON/BREAK* c'est tout 

du terrain (ne vous mquietez pas si cela vous arrive ) 

wSeT Voo,S£oa t Zln^ C r * ,ol « nement Au ^P"* •• pro B ramme tourne en demonstrate Pour comrr*rv 

,!™lf -> a P P 5 Ique cer la P'em.ere partie. il suff.t de taper sur T 

rangee 2 4 points par brique 
rangee 3 8 points par brique 
rangee 4 16 points par bnque 

Les interruptions . la touche T vous permel a chaque instant din- 
terrompre la partie aussi longtemps que vous le desirez et de la 
reprendre en appuyant sur n'importe quelle autre louche (saut 
"BREAK" ) En outre, deux touches ont a ce moment une significa- 
tion particuhere, "B" commande le BEEP (l- ON. O - OFF). "N" re- 
commence une nouvetle partie 

Enregistrement du meilleur score : si vous avez battu le record pre- 
cedent (0 pt au depart). I'ordinateur vous demandera voire nom 
{repondez-lui. de grace ...» et tapez ensuite sur la touche "ENTER" 
Utilisation du programme ; 
Pour le demarrer, 3 possibility ; 



l-'ARUN (RANDOM : 
GOTO 2929 
10(R£n -'AUTEUR : 
Jean Marc UER 
N1AJ0U* 
28(REn "Programme 




de ca 






30: REM -ooui- SHAR 

P PC- 1588- 
4e:REn ' el TANO 

Y PC-2- 

J999:REn "Present 
ai ion Jfl S 
ofiware" 

2800: ■ "CLS : UAI T 
3: GCURSOR 35 
(GPRINT -022 
551423E02020 
J 00030833080 
020S0403E040 
S043E42- 

2805:CURSOR 12: 

ORINT "Sofia, 
are" 

2008: RErl -introdu 
ctior. dei so 
ljs programme 
s machine a 
part ir de ! 
adresse £785 
8" 

20]0:PC=&7050 

28J2:RtOD IMF K 
255P0KE PC, I 
:PT>PC*J: 
GOTO 20:2 

2020: CALL &70S0: 
REH "lowers i 
on uideo mac 
h ine" 

2021 (FQR 1=010 15 
5: GCURSOR I: 
GPP J NT 255- 
POJNT I: NEXT 
|:REt1 "Inver 
» ion video b 
as I c" 

2922(CALL &7050: 
REM "' invers I 
on video mac 
h ine" 

2830: FOR 1=0TQ 38 
:8EEP 1, I, 18 
8: NEXT 1 

2840: COLL 47850: 



2850: FOR 1=38T0 
STEP -I [BEEP 
I, I, 100:NEXT 

2860:CLS (WAIT 10 
0: CURSOR 9: 
PRINT "prese 
me":WAJT 8: 
CURSOR ft: 
PRINT A*: 
CALL 82867 

2070: FOR J=8T0 10 
8: NEXT J 

2888: RE TURN 

2999: n L=i:A=7: A 



*="Casse 



bri 



ques"( GOSUB 



iS=0( } = 4:REr> 

r.ombi 



ba : 



REP 



de 
est 
antes" 

3085: CLS :UAJT 0: 
GCURSOR 2: 
GPRINT 127; 
REP1 "dess in 
du bas du t e 
rrain en tro 
Isieme colon 
ne" 

38e6:REn "pour la 



3007: GCURSOR 13: 
GPRINT "7F7F 
7F7F08807F": 
REM "dess in 
du mur de br 
iques et du 
bout du terr 

3003: CURSOR 20: 

PRINT "QZ Jb 

n":R£!l "toUC 



3889: IF J<6LET J= 



GOSUB 3680: 
R£f1 "pos il i 



t ties 1 in de 

ta raquet ie" 
3828: REn "t irage 
de la pos i t i 
on de la ba I 
!e au hasard 

3025:u=-t:u=2:Z~8 
:Y=2"INT RND 
C6):X=7*INT 
RND (5) 

3838:M=0:J=J-l:K= 
INT J 

3032:REM "dessin 
des bat les r 
est antes" 

3034:GCURSOR 0: 

GPRINT ]*(Ks 
2)-*5*(K=3)+2 
I?(K-4J+85tt 

3835: IF J>.5THEN 

3J88 
3036: REH "s inon p 

erdu ..." 
3040:UAir 188: 

BEEP 3, 75, 18 

0:PRINT "sco 

re fjSj 
3045: REM "me i I leu 

r score ?" 
3050: IF S>T1NPUT 

"voire nom ? 

";C*:T=S 
3055: REM "10m el 

score du me i 

I I eur joueur 

3868:PRINT " <";C 
*;" ";Tj">" 

3865;REf1 "client i 

on, on re met 

ca . . . sans d 

emonstrat i on 

prea lable" 

3878: GOTO 3000 

3100:V=Y*U 

3105: IF L=8AND 

INKEY* ="0" 
AND R>)LET R 
=R'2:G0SUB 3 
608 

3JJ8: IF L=0ANO 

1NKEYJ b-Z" 
AND R<64LET 
R=R*2:G0SUB 
3608 



31 15: IF X=18LET H 
=]:U=-I: 1=1: 
8EEP 1,8,28: 
GOSUB 3600 

3120: IF Y<1LET Y= 
1=U=2:BEEP 1 



. : ■'. 



18 



3130: IF Y>64LET Y 
=64:U=.5: 
SEEP 1, 100, 1 



3148: IF INKEY* = 
I "GOTO 3788 

3145: IF L^IflND 
RNO (1388 
8LET R=Y: 
GOSUB 3608 

3150: GCURSOR X: 
GPRINT Z 

3155: IF L=0AND 
INKEY4 ="Q 
AND RMLET 
=R/-2: GOSUB 



>4 



3168: IF L=8AND 

INKEY* ="Z" 
ANO R<64L£T 
B=R*2: GOSUB 
3688 

3178:x=X-*U:Z= 
POINT X: 
GCURSOR X: 
GPRINT Z-CZ 
AND YJ+Y 

3180:GOSUB 3900 

3184:REr1 "la ba! I 
e touche ta 
raqueite ?" 

3185: IF X^Q+IGOTO 
3800 

3198:G0T0 3180 

3599:REn "dess in 
de la raquet 
t e" 

3688: GCURSOR 0: 

GPRINT R*R-'2 

-*R*2*(I»0J! 

RETURN 

3698: REH "sou* pr 
ogramme de t 
raitement de 
s interrupt i 
ons (. touche 



3691: REM 



L>8 
sorl de I 

demonstrat 



3788: IF LJ8LET L= 

8: GOSUB 3888 

3781:REn "s inon : 

3785: WAIT 32: REM 
"1'2 seconde 
de temporis 
at i«on pour r 
e I ach e de la 
touche I" 

3786:CURS0R 15: 

ORINT "INT": 
UAIT 

3789: REM "on bouc 
le en attend 

uche soil fr 
appee " 

3718: IF INKEY* =' 
"OR INKEY* = 
"I"THEN 3718 

37I4:REn "BEEP 
N ou OFF?" 

3715: IF INKEY* ■=" 
B"CURSOR J5: 
INPUT "1/0"; 
8: BEEP ON : 
IF 8=0BEEP 
OFF 

3716:REn "Nouve I I 
e part le?" 

37)7: IF INKEY* =" 
N"THEN 3888 

3719: REM " f in du 
traiiemeni d 
es Interrupt 
ions 1 affac 
ement du INT 

3728:CURSOR 15: 
»R] NT " 
":G0T0 3150 

3799:REn "la bal I 
e a heurtee 
la raquet te 
: ca leu I du 
rebond" 

3888: IF Y=RLET U= 
I : BEEP 1,8, 4 
0:GOTO 3108 
Y=R/2LET 

U=J:li=1/'U: 

8EEP 1,8,40: 
GOTO 3)00 
3810: IF I=0AND Y= 
R*2L£T U=I:U 



=1/U:BEEP ], 
8, 40.-GOTO 31 
80 

3B20:8EEP 2,58, 10 
0: GCURSOR Q: 
GPRINT 0;8: 
GOTO 3010 

3890:REn "sous pr 
ojramme: heur 
1 de br i que 



3899: REM " 
y en 



; 1 



3385: 



a pas 
sous la raqu 
et t e, on r-evi 
ent " 
3900: IF <ZAND Y>= 

8RETURN 
398 J (REn "s ; la b 
a 1 I e heurte 
une br 1 que e 
n descendant 
el q elle n 
a pas" 

3902 (REn "lape en 
haul, on rev 
ient auss i " 

3905: IF U<0AND H= 
8RETURN 

3908: H=0: REM " le 
dernier rebo 
nd n est pas 

(plus) sur 
le bout du t 
errain" 

3909:S=S*2MX-)2> 
: CURSOR 4: 
PRINT S:BEEP 
l:REn "la va 
I eur de chaq 
ue br i que e s 
t fonct Ion d 
e" 

39I8:REn "son abs 
isse : 12<X( 
17" 

39I2:REn "s i I ne 
reste que c 
ette brique 
on passe au 
mur sui vani 

3313:iF'pOINT 13* 
POINT 14* 
POINT 15* 



p 0lNT )6=Y 

THEN 3958 
3914:REn "la raav 

etie avance 

suivant I ab 

sisse de la 

brique' 
39)5: IF X-9>Q 

GCURSOR Q: 

'■; 0:Q;X 

-9: GOSUB 360 


3320:2=2-Y:U=-U: 

RETURN 
3348: REH "C< cxtr 

a bal le >>" 
3958: 8EEP 10, 8, 10 

8: J-J-»i:G0T0 

3885 
4000: REtt " invers i 

on video en 

( angage mach 

ine" 
4810: OATA £48, £70 

:REn "LDI XH 

, £70" 
481 l:0ATA S4A, £80 

:REtt "LDI XL 

, £00 
4012:OATA &05:REn 

"LDA CXJ" 
1013: DATA £B0, £FF 

:REn 'EA1 £F 

F" 
40)4:DAIA &41:REn 

"SIN X" 
■»B15: OATA &4E, &4E 

■■fiEn "CPI XL 

,£4E" 
4816:0ATA £99, 686 

:REn "B2R-£8 

8" 
4017:OATA £4C, 87) 

:REn "CPI XH 

, £71" 
4818:0ATA &8B, £06 

:PEn "B2S-*£0 

6" 
t0I9(OATn £43, £7! 

(REn "LDI XH 

,871" 
4020(DATA 84A, 888 

:REn "LDJ XL 



19A:REn 

4030:REn 'cl ignoi 

(,-(n; de I e 

cran en I anj 
- a th i ne 
< &BS, £30 

:RE0 . . 

801" 
4032: OATA 8F0, SC0 

:R£fl "RDP" 
4033: OATA 858,800 

:REH 

, 880" 
4834: DATA 85A, 880 

:REn "LDI YL 

, £08" 
4036: DATA 854, 854 

, £54, 854 (REtt 
Y 4 fci 

4037: DATA 898: REH 

CM YM- 
4838: OATA 899,80? 
REH B2R-&0 

?" 
4839: DATA 8FD, 8C1 

:REM "SOP" 
4848: OATA £58,888 

:REH 'LDI YH 

. 888" 
1841 (DATA 850, 800 



4842:DATfi 854,854 
, 854, 854(REtt 
"INC Y 4 foi 

4843(DATA 896:REn 

' CPA YH" 
•1844 (DATA £99, £8? 

(REM "B2R-88 

4" 
4845:0ATA £DF:REn 

"DEC A" 
4846(DATA 899, 610 

(REtt "82R-8I 

D" 
4847(DATA 89A(REn 

■RTN" 
4048: DATA £FFFF: 

REn "fin de.% 
sous prog r a 

mmes mach in' 



TRAITEMENT DE TEXTE 



Ce programme va trailer un texte que t'on a prealable- 
ment entre sans se preoccuper des coupures des 
mots. Les lignes de texte ne doivent pas depasser 
80 caracteres et le dernier caractere doit etre le 
signe "&". 

Les mots sont repartisde la meilleuremaniere possible 
afin d'obtenir des lignes de 24 caracteres exactement, 
e'est-a-dire que le resultat sera un texte aussi reguliera 
droite qu a gauche. Pour cela, certains mots sont par- 
fois coupes selon les regies de grammaire d'usage et 
des espaces sont inseres au besoin entre les mots. 
Apres execution, le PC 1 251 vous montre le resultat et 
propose defaire une modification. S'il yen a une. lecur- 
seursedeplace sur chaque lettre.ll faul appuyersurla 
touche ■'+*' lorsque ce curseur est positionne sur ler- 
reur puis corriger celle-ci. On ne peut pas inserer ou 
retirer un caractere mais juste le remplacer par un 
autre. 

Le choix d'imprimer le texte en majuscules ou en 
minuscules est ensuite donne.avant I'impression.Pour 
les modifications des POKE et des CALL du sous-pro- 
aramme creant les minuscules, se rapporter a I'article 
de Catherine CHAVINIE. "Editext ' d'Hebdogiciel n r 2 

Isabelle MULLER 

3an3 ie soucier 3e5 ° 

;oupures :es hots. 
voic; Sh presentation 

03TENUE « :>S £S LpEXECU- 

'.:■ DU ^POGSfiiME 2£ 

TRAITEHEHT jE "EXTE. 

reaac<iu02 c d ispo- 

nette en co ■ onn« 

«u« ■ ecr i lure 

o*% 1 onne t w ■ ■ nus- 



Ki)>e*oi<e)>7 



lliV J<>» IMPU1 1M) 
llUt *1Gmt» (ikj>.|)« 

■[■ LIT 0. tfH TI(J) 
-llTKJX L EPT» ( tl( 

;),»)♦* ■> 0010 2t 
i5-»E** ; 
wut 

;!>rn» r-» to J 
ijis-5* lEh tkd 
HiMIXT : 
UiF- :-- '5'i4).n 

19U1FI )t(F)*»,CI(l>*I 

5 

<*: :.:•.',.!* 

«!lfllT.H£.( 

iioe nisi (T«(),J,n 
32iM(l j*lf(L)<l* 

) L£h IKE) LET 




::-•■•; 



T n:r !• .en r»«t»i 
join n 

•2IMI 

now 1 

itiro* '-1 '0 iE" ii'j> 

• ■ -'i- 111 

JJINlXT ' 

Linrot «■! '0 1*- lJ" 1 

i'J> 
mur *ti« cnm.«ii)« 

• " .£- Stflj- 
»IG«T» (!i(J), lE- I 
l'Ii-"lill(J). LJFTI 
'»• \, .!•)•• -OKI) 

IHUf "isi tn(ji.«,ii. 

• • L [i MHOl GOtO 



lenciiei'itf.) 

iSJiCttWCtlB) 

HUM 

V.M-.' i> Lei T|(0*l 
LET E-E'CJ-il it 
LE- -HE)-I 5ro» 

Jiiigice)* nisi tjutiti 

;;*,!.:i'i ■■•■:*':,. no, 
2IIUF nisi (TifE).J.l) 

()- • T-EM 311 
2JIU- LE« CI(B» 

2*11— asc mst (cid).i 
■ 1) 

2«SiIF H-SS 01 —41 01 . 
-73 0* n-T9 OP *•« 

0» n«9» THEN HI 
2«Hir n-47 o« w* oi u 

•92 01 U>I3 OS U>|* 
0« -'98 01 —77 0* u 
•Tl ThEM ISI 
2471J* ,.<; LE7 J-J.liM. 

(K< U» Tt(E>>IK*H*{ 

-.-D.U-KNfE-'-l) 



liJM.U MS M04G 

bhs IK>« axa uo4| 

MS .'Ml MS (if<4| 
MS ->)7) THEN HI 

1MU-J-I 

2t2l».H-l 

2*IUF —I LET E-E-l im- 

lE» TKEHi-J-l 
IIHGOTO 24* 
lilt— ASC HI3I (Ct(l).J 
I IF —*5 CO -• 



•S3 OB *•$■> T»En III 
Jiif Fiji (CI<l)tKil» 

' ' then ;u 
IiCC! 
!>G0r0 123 

Mir lEn ck»)-j<j 

ThEK 2(1 

jiv»y 

rin- us: flioi (Ct<i>.j 



2SI 



b a«3 ii 



I OB |«T] 

n-83 0» n«S» fNE- 



::Ji;f ■ 



.c- HO) .e; 



JiJiGG-O :tj 

uiiMcn ' 

■ 

14HG0SUI 311 
:«1i£n3 



Ml 

JI3HF M>82 0* —47 0* n 
•19 01 »«72 T-(« ;«| 

I9'Mr t tN CI'D-J'I 

TMER 211 

Illiw A1C "ISI (CI(I).J 
•2.0I If H*«9 0« » 
*1 0» N-7S 5» —71 
01 I»I3 0» —II Th(n 
III 

I12IG0T0 241 

itii 'Ci'D.: 

-I. IH IF -Jl 01 - 

I* 0» !..«• 0* M'4| 

o» -11 rm* 23i 

IlllOJM 



119 



»ic «isi rwti),i 
•:•■ If N«i3 01 — ti 
o» ■•» a* ■>•>! or w 



0» <v-67 MS -12) 
04 (V-7« MS ll>|2) 

00 (V.^4 AHS H.7J) 
0» (V-47 MS '-721 
TnEn 249 

!45i— ASC MSI <Ct(S>*J 
-liIH IF N.» 01 — 
V> 00 —48 0» -«i 
0" —43 0* —14 THEN 
2(1 

i7ii— asc ittii (c«n.« 

.!)■ IF —«3 01 -4* 

01 —Tl 01 —74 0» m 
•83 0» K«8» then 14* 

S73UF niBt (CKP.f.D* 

• ' Then 241 
JT9KCKM! GOTO JTJ 
III'IKi.1- LEFT! (CKI). 

j).---i GOTO 411 
SMUit,.). Ltrri <c*(i». 

4«|il-l<: 

4IHJ>« 

4|3iE>Z 

4*7rO-J.24 

4|aUF G>7» LET G'G-7* 
4||tPE'U»N 

3lli.A|T 1 (Of J-l '0 i 

3IHFIINT lt(J)i n£*t J 

3IJ>tNAuT 'NOBIFlCAriON 

<0/n> 7 *IAH (F At* 

■0' THEN G0SUI llti 

GO'O 311 

siimmrr -[""ession ■> 

M«ll |F Al.-N- 0» 
l—HOV Tn(n CLEAI 1 

GO 10 1 

IltllNrVl 'FtlMM* tU» 
n ? MM 

3I1HNF-UT ■"iNySCUI.ES 10 



3l4iF0«E IC3C*. 2- •.;?!.! 



24tl23>33.2>ll<43,7l 

CALL 17SFEICKI1*-- 

32a>F0» J«l 70 Li IF LEH 

JKJX24 THEN FOB <• 

LEN |I(JJ.[ TO J4III 

<;>•»<;>•• •: -EHI 

SlUFOft «•! 70 24 
34IHF ASC N(Bl iHU).. 
.1X91 Ml ASC NIB* 

<n<j>.n.i j>*4 t-ei 

»0*E 4C3CT, ASC NIBF 
(IKJ>,K.!).Ni CALL 
IC3C4' GOTO 331 
343i»o<E IC3CT. ASC "IBt 
<lt(j>>«il)i CALL IC 
3C4 



34ei»a<E 4C3C4.2.I.I2I.I 
24.;33.33.2,II.43.Ti 
CALL 475FEI "EXT ] 

37HCLEAA 



S9I1F0F- J.| TO 
5I3ILFUNT |f(j 
3981 NEXT } 
JMKLtM 



*c 



Il-.l 



■nEn nAIT 111 
4I3HF KOI THEN MA1T 
iiiiceiN' .EFT) (MM! 

•I)* tHU «» BIG- 

(HtJi. lEn ; 

rAt- iHfEl" 

42IUF ■■■••' ;»£" l»»u7 

■C0IIECTI0N ■> •■«•)! 
I(J)> LEFT! rjt.jt,, 

-p-Ai* oiG-'t di<; 

I. L(N l((J)-»)l 
GOTO 438 

4IHNOT . 
4i3iN(xT J 
44IHETUBH 

*.:»' :-p,jt 'Unl autie not 



I'. 



■iaii ir 

• 0» AI-'OUI' ! 
II 
44IUF Al-N* 01 AI 

■ 'h|M >£'IJ»N 

471 1 GO 70 431 



"En 4 



"> 
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■ 
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LES MARTIENS ATTERRISSENT 



Un jeu d'adresse rapide et sonore. ou vous devez sau- 
ver votre planete Pour ce (aire, vous deplacez un 
canon anti-aerien et devez empecher les martiens 
d'alternr Attention, leur tir est mortel. 

Maurice LHOMME 
ixclusivement avec lo compila- 

MODE DE CHARGEMENT 

Chargez voire Z-BASIC Introduce? le programme source. "LES 
MARTIENS ATTERRISSENT". sans nen ajouler (il prend touie la mo- 
moire disponrblo) II ne vous reste plus qua le compiler et a le sauver 
sur cassette 

UTILISATION 

deplacemenl a gauche en vitesse normale 
deplacemenl a droite en vitesse normale 

- + barre d'espace deplacemenl a gauche en vitesse rapide 
■ + barre d'espace deplacemenl a droite en vitesse rapide 

declenchement du tir *r 

BREAK relancement du jeu 

INDICATIONS 

- vous ave2 au depart 4 vaisseaux 

- bonus a 10000 points t vaisseau 

- l martien detrutt 50 points 

- 1 martien touchant terre - 1000 points 

- 1 flash a droite de I'ecran vous avertit d'un lir imminent de I'enne 
mi Degagez en vitesse rapide (s» vous en avez le temps .) 

- Ne cessez pas de les detruire. sans quoi its accelerent leur inva' 
sion sur terre 
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03 GOS'^r ICXT1ELSE64 

S3 fl2— \2- 1 :FH2:-«TneMIFPE£K'-;:2703-Z.>-irMEHi..l8* vL. WE: - .;m-= Ub 1 18 M2-0 PPIHTr.Ji.e 
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..-. C070U- 

220 F0R1-3TOM PRINTtrtEK' :■-• ■;■-! ----*■■* EEf :^7m'..( 

125 21 "8 

-28 IF01 2..;JlPl-j ^2-iTHEHFOl 2-PI-3l64.«n2.KirnEHF0PI-lTi. r f f :m -■■-■- f , ,. 

'■'■■ '■■ ■■' l-:iT-2.,.. -. PPIIITi»»2.2-64.- -. i.iA.1 i-Ststm? IC\ 

U frj PRIHTMS C»- F0ftl-1T«L-PEEK 32671*1 ■ GO:..*} i«,n r.o^JE*l,i" F-:-PI-lt W L- 

2i5 IF^hhEiii^m-1 G03UB2B30 ft=8 

240 REIUPII 

300 F>| R^CNRf. [Si ..CHPi. i;-i ...;hR* l?l ■ FOPI-HCH FPIIIT»P.fi», PPlliIttP-;i .ftl, P- 

F.,.4 NEXT P«tNjej«9. ■I'TO-E' fPINTCTK-j.-iiEIL.-. Ft :m:.,2- , .- f ,., ..^,< 169, 

*'i"-..,-HPt''"?- ; P= "'° F, ° F ' lllT0; ' ,F *I" T e f ''6*- F-F-12B IIEXTI C-I-CHFUs 139-C*! 

•S5"FP.iHTK.:.G.02. 

jio fpiht:-,: c.t FPinTr-e [1. j-ho, 

30a DftTfl >;^-a3-32. 77. 63.52-84. 73, 69. 78- 83. 32. 65. 84. 84. 69. 82. 92. 73. 63. 63. 69. 79 

4io FoRi-iTosee nexti return 

;..'V. : ;:J". : ..;'.'">: ; " .:,■--- [FFr- aWEKI-I-1 I P*7.G0T01»eeLS£IW>.|T« 

■-' : - ■'■' ■' A);'X5 FPIIITOP." '. F-F't4 «£>:rj pRlMnP.CWKfl), P«P-3« 

l.v..,, l, f E r ;. 14486'- 4THENPETl.tPll 

iS*^ ^ >;rl fp " | f r ^"4:."Er.Pir f«r nfiuRicE lhophie 1962' C0SUB2018 KSUBMia FOBI-1 
T013 PPIllT L=>40 G0S1JE7 C0SU62We'HEXTI 

:■>!.■ ?FIiiT.r560.-:.EPLHCEMEMT -.CHPF-94,.- EI " ■:«»*-. K ■ cr,SUB2O30 Ft lh-19974/-. 
F„.. t : £.f-.,.£ , h .„„..£ pflPrt'E- G03Ufc2O30 PP1KT '-.0:-'.*2038 FR1MI-IIR • Ch-i i: . 
■' PRINT G0J'JB2e;0 PRIHT"BDHUS O'UN '.■fllSSEFiU Fl 19094 P01 
1815 F0RI-IT03 FRlnr Grji'JB2830-riEXTl 
1628 PRIMT PPJlir-FO'JP COnnEICEF . TfiFEZ UIIE taJCHE- 
1025 ('it-lni.r.l :-.-((: THEH1823 
1838 BETUPH 
2988 F0RJ-1T0208 flEX.Tj PEIURH 

ifiie FOPi«iroi5-?e8 tc/n petufn 

2920 F»J-lT05ti t-E^TJ PEIiJPn 

2.130 l-jo GOSue? ociuezeeo peturn 

2058 Ll-0 1FP01NT' 1' - i5 ;— ITMEMFR1MKI764. " -, 

2852 IFU-3THE!tPFl!IT.i'28." 

2054 tFU-27kE"PPInr6448.- 

20'.-" lF'l=ITHEHPPIn;.;5.-5. " ", 

;.'.-*:. :'■' .:--.-r ..-.-. _.-i i,,-,t, ;,;,-, 

3969 RETURN 

nee ff :■■:-■':■:: ••> phi m-. FotL-sercse gosu83 ne;.:tl goto? 

iSoSmSaflT 12 <b"»'--.l-{» 1 »»«'-i.-jj» »«' «-■«=». IW"M» 




METEORITES 



Alio ! Ici I'ordinateur central, nous abordons une cein- 
ture d'astero'i'des. Alerte rouge!!! 



DidierGROSDEMANGE 



: iEn-riETE0»irE5- 



. CLS 



:.hinext : 




>;.3)iSET(K* 



3 w-a 

E, 0*9 

8 FOB T-l TO S 

19 M-INT'RW0(9)*12J) 

29 SETfH.M) 

23 NEXT T 

28.M-W.1 

IB PRINT 

49 FOR 1-16457 TO lEAAIlPCKE I 

39 T»-IN«EV« 

E-9 IF r»--v- THEN X-X.2 

79 IF T»=-X" THEN K-»-2 

SB BET<X,41iaET(X4-l,4Ji86TtX*2,4)<flET(X.0)<BET<X~ 

TCK-1.4>ilESer<I-2>9>ilSSETfX*3<4)iHESETtX+4.3> 

39 IF POINTCI.SlOP POINTfX*!. E.) OS P0IMT(*.2.E> OR POINT < I- I . E>> OB P0INT(I.3.G) 

THEN GOTO 699 

199 GOTO 3 

599 ELS * 

595 PRIMTiPBINT 

319 PRINT- fiCLO' ■ ' " 

329 PRINT" ICI L/ORDINOTEUR CENTRAL" 

339 PRINT- hrppobt CUR L"ESPflCE ENVIRQMWWT" **» 

332 PRINT ae36.-N0'JS flBOBMNS UNE CEINTURE D" RSTEROIDES ■ W 

355 FOP D-l TO 18 • 

309 PRiMT373a.-ftLE:BrE RouGE"ipp:pjrav;B. ■' 

3i5 PRINT3739. ■•OlETBIE UCIJOE" 

339 NEXT D 

Z&Z P0INT339B. 

379 INPUT O* 

399 IF LEFT* CA*. 11- -0- THEN GOTO /.995ELSE GOTO 613 

699 CLSiPRINT:PRINTi 

619 PRIMT- VOUS r-ICIIR»<13'.'«CHR*f 131 )«CHR«(137) 

UN CHEMIN (t TflBVEBS Lft CEINTUSE D-nsrEPOIDEQ <'lCHft9<13B) 
ES rOUCHEB <V) ET 'X) POUR PLLEB O DROITE QU GOUCHE. 

612 PRINTsPBItJT" LE CODE DE DEVEROUILLAOE DU BVTEnE BE COMnANDE MfiNUELLE EST 1 



WJLEZ V0U3 DES INSTRUCTIONS ! 




413 PRINT" CODE DE DtvEBOU I LLflOE DU PILOTBOE MANUEL ' 

616 IF D«-"123" THEN GOTO 629iELflE OOTQ 613 

629 CLSlDOTO Q 

699 FOR X-9 TO 39 

E,B1 PRINT 3319. - — -•- .-.»» ■ » -.....■' 

£.92 PRINT 33B6. "• • * * - - * *■" 

693 PRINT 3648. ".••-•• * - - - . *- 

G96 PRINT 3312. *• * * • • * * •" 

693 PRINT 3376. * ' » --—• ..... ■ 

696 NEXT X 

697 g-O-i 

698 IF 0(3 THEN CLEi GOTO S 
619 PRINT' V0U8 fiVCZ TENU "lUi" PWCO LUWiM 

612 0-0*1 

613 IF 0(3 THEN CLO tQOTO 
I-VOULEZ VOUB BEJOUER ^"iINPUT C4 



INPUT ■■■*■ 




613 v 

G16 0-9 

629 IF LEFT«<C«. ! 

639 CLS 

r.6M end 



4 CLS 1 OOTO 2 



Didier GROSDEMANGE a 
12 ans, qui dit moins ? 



La Redaction 



- DEMONS et SORCIERS (TRS 

BO) 

Marc FREMAUX propose les 

ameliorations suivantes: 

350 IF (TX - PX AND PY - TY) 
ANOET - 2ANDTT- 1 THEN 
GOSUB 1700 GOSUB 1100 
GOTO 250 REM (TRESOR) 

360IF(TT-2AN0ET-3AND 
MIDS (4$ (3. PY, PX). 5.D--T) 
THEN 1600. 

1710 T$ - "SORTIE- TX - 4 
TY-6.F-1;TT-2 G$ (3.6.4) 
- -110110" 

10217 OATA 011001. 010100. 
01 1 000. 1 1 01 00. 01 1 1 00. 01 1 001 . 
1 1 0000. 1 1 0000. 01 0001 ,1101 00. 

Ceci pour empecher de trouver 
un deuxieme tresor au dcuxie- 
me niveau lorsqu'on se trouve 
sous la sortie du troisieme ni- 
veau {ligne 390); pour empe- 
cher 6ga1ement de sorlir du la- 
byrinthe sans avoir trouve le tre- 
sor (ligne 360) et entin empe- 
cher I'acces a un niveau quatre 
par la trappe factice du niveau 3 
a I'endroil de la sortie sans avoir 
trouve le tresor 



Suite de ia page 12 



3P2£ INPI IT 



LOCI. 



►iND J=C 



z% 81 



7495 PRIKT , ,"l)UOUS P05SEZ RRPI 

74.10 PRINT ■ , i3)UOU5 LES RTTflOUEZ " 

7+15 PRINT "3)"JOU5 LEURS LISEZ L 

C BILLET TROUUE OPN3 LE F IRCR 

B" 

7+20 INPUT U 

7+35 QOTO 7*35*(C0OC "• " AND Lf-C 

ODE "*")* ICDOC "." OND U>CODC "* 



NOMBReuX" 

7439 OOTO 0099 

7*39 PRINT ,,"ILS UOU5 LAI33CNT 

PF153ER. " 

74. + B LET Z* = "FOOTLi' - 

7*43 ooto aoee 

7*49 CLS 

74.SO PRINT ,,,," P«^ oi; 

CRET. . . " 

780B PRINT ,,'l)LiOU5 UOU5 CRCHCZ 

75iO PRINT "0)LiOUS REBROU5SEZ CM 
EMIN" 

7523 INPUT T 

7S25 IF T THEN GOTO 35fll3 
7930 CLS 

75+0 PRINT ,,,,"* PRTROUILLES DC 
OOUCMENT DCS 4 COULOIRS" 
7"3 + S OOTO 9999 
76O0 CLS 

7ft lO PRINT . , , , "UNE PIERRE 0R3CU 
LE.UOUS CMU+EZ EN 29 , DIRCCTEMEN 
T PRECIPITE DONSLR CF)3CFIDE." 
7620 OOTO 9999 

7710 PRINT i ,,,"<. (CONFUCIUS P, DJ 
T30US LE3 PflUES.LR PLRGE , SOUS L 
fiPPflRENCE.LR GU03TANCE. . .MEOI 

TEZ CELR. ..>>■' 
7715 LET BO-CODE "■ " 
77S0 INPUT U* 
772B GOTO +3*0 

7805 PRINT ,,"IL FRIT L P.UHONC" 
7007 INPUT U* 

.•i io ir \, c.M'.i i nr ri noi o .-aj 



7615 PRIMr -,"LUI DONNEZ VOUS DB 



a«* v fnxN i , , , , 

LOGERIE SE MET 

-UOU& POUR OB- 3ERUER LE TEMPS 

QUI S INSCRXT SUR LE OOLfTON"?" 

00+1 INPUT K* 

BO+3 IF K»(l)-"0" TMEN GOTO SO*6 

00+4 GOTO 3139 

8046 CLS 

£10+7 PRINT , , , , "UN HECRNISME LID 

ERE LES PLOTS DULflC PriN-j Lfl GROT 

TE .TOUTE PfZRSON-NC PRE3ENTE EST 

HOVEE. " 

9040 OOTO 9999 

805S PRINT , , , , "JllSOU R OUBLLE O 

kFIDUnTION?" 

Q06O INPL/T E 

0051 IF E>CODE "U" TMEN OOTO SOP 



soqs xr C(Code 

ODE "'" 

^070 ooto oieo 

3500 CLS 
3510 PRINT 



"7" 



TMEN LET MU "C 



"uoriii: lrmpc est 



THEN 



•J.J i« fmril , . , , VUI ML LHnKL 1.3 I 

PEROUE.UOUS NE POUUEZ PRS 3URUI 

URE . " 

?520 GOTO 9999 

•9600 PRINT ,,,, "UOUS NE SRVEZ PL 

U5 OU UOUS ETeS.VOUS AVCZ ECMOUE 

3510 INPUT u* 

36ao QOTO 4420 

39O0 INPUT U* 

990S PRINT ,,,,"UOUS POUVEZ RLLE 

R EN " 

3910 FOR R-CODE "■ " TO LEN Z*-CO 

OE "" " 

a920 PRINT CODE Z»(R)-COD" " 

a92S IF R»LEN Z»-COOE "• " 

org B9«e 

3927 PRINT ","} 

3930 NEXT R 

3940 PRINT " OU EN ".COPE Z» (LEN 

Z*» -CODE "--; '• . ■' 

395© INPUT O 

S9S0 FOR fl=COOC "*"' TO LEN 7.* 

5970 IT CUR* IG+CODE ■"■■*•) -2.% IR) 

THEN GOTO 9000 

9900 NEXT A 

5990 OOTO B9Q0 

".>i.\^ CI B 

9010 IF G>CQDE "O" TMEN OOTO 100 
0+ (O-CODE " *'*> « 100 

■-.n;>0 -Milt, uvhwh: r ■■- " i UOO 

4500 print nr < « , " ; ••fflF'IWWWTffWPII 



9520 GOTO 44£0 

9995 SRVE "LRDYNOIB" 

aSge run 

9999 GOTO 9000 



7825 IP K»»"a" TMEN GOTO 7O50 
7930 CLS 

7835 PRINT ,,,,"IL POUSSE DEO HU 
RLEMENT3.LCS 20 ORRDC PE 31 SUflO 

r-,",i:tiT rrr >vi i noui.nr . " 

7340 OOTO 9999 

7950 PRINT ,,,,"PRESTFJ1ENT,IL TI 
RE UN VOLUHE PRRMI DE S MILLIER3: 
0E0AN5 Lfi LISTE SRCREC . " 
73SS LET SR=C0DE 
7057 INPUT U» 
■:w.o r.OTd -.i-.-o 

8SSS (SSSnT V?.."OU E PRITC3-VOUS7 

9010 PRINT ,,"l>UOU3 REBROUSSEZ 

CMEMIN" 

901B PRINT "fl)UOUO MOMIPULEZ LB 

bQQton" 

3020 print "3) uous mrnipulez lr 

MRNETTE" 



Olrccteur de la Publication - 

Hi ■(!.■<. i(!in en Chef: 

Q6rard CECCALOI. 

Imprlmcrle: 

DUUAC si JARDIN s/> 

I, ruo G.'iyl iiss.ir. ~/\ N' 1 

27000 EVREUX 

Edlteur: 
SHIFT EDITIONS. 

.'.'. r lu I,, 

Publicity au Journal. 

Distribution NMPP. 

! ommtsalon p«rlt«lr« an cours 

N R,( 6 IB 6821 



* 



Suile de la page 9 

MZ80 



37IB PRINT 'I'lmiNlifUlN! -.PRINT 'PRINT: 

PTtlNTrPRlNTHfJlNTiPRINT 

3729 PRINT " tl **F1Cm*GC SUR IWRI 

fvwn it" 

373* PRlNT-PT*«E34>r»« NCMMS *« • 

3749 C7-8 ;«?■■ ;B?-8 WB :£?>8 -F7-8 s 13-e 

373* PRINT/P - 



3?0« PRINT/p- - 

377B PRINT/P'EWTIF! T.T.C l«Rt.?i tflRT 
. 4 !i4*tT. 1 INRT. 7 IIWT 33»!"i 
3?B» PRINT/PTUA CI11TUA t2)!TU*i (3)' 
379e PRINT /p" 

•mm prinT/t* 

3*19 FOR X-15 ro sa 

»rO IF AUXlOfl THEN C7-C?*J 

3930 IFrtl(X)09TM£N«?-fl?'BUX):J-((INTCt 

*«UX)»ie7Jt.45)Viaa);GOSua39a0 

3848 FOR T=e ioi 

3658 IF 8HX,T]oa THEN C?-C?»J I 

3868 lFBl£X,T)OBTHENB?»e?*8l(X,Y):jl>t£ 

1ST I LB: CX,T)I1 18.0)*. 45))/ 1 98 2 

3879 IF BKX.HOa GOSUe4958 

3888 NEXT T 

3899 IFDHX)OBThEN07-07tDI(X):j2=EEINT£ 

couxni iB.6)..^S))'i»aj 

3999 IF OICXJOB TH£NC7=<C?tj2:G0SlJ64U8 

3918 FOR T-« 10? 

3928 IF £l(X,Y)OBTHENE7-E7*£|(X,Y):j3 = f 

t INTCCEI CX.YJtl 18.6)*. 45))/ 188) 

3938 IF E1CX.TJOB IKNC7>C?'J3 :G0SU8418 

B 

3948 NEXT T 

3958 IF FICX)0»TN£NF?=f7*f)EX):J4=EEJNT 

Uf ttX)tl33.33)*.45))/!9a) 

3968 IF FIEX)t>» T«K?=-t?».H :GGSUe424B 

3978 GOT043B9 

3988 PRiNT/P XiTftflC3);"I"; 

3998 PRlNT'?!Wt);ft!«;X);T*SCSl;'!";TA8 

[OJUi 

• 888 PRlNT/PToeCt5);'!';Tfle(l6).1'(X);TA 

9E23);'!" ;Tflflt32)i'?'; 

48)8 PRlNT/?T*eC48);* • ;TN9(4B) ;' !" i T «8C 

56);"!-; 

4929 PRINTS T*et57);f £INT£E*HEX)«7)*.45 

))/lB8); 

4839 PRINT /PT08C64);-"!";TfieE72);-!' 

4848 RETURN 

4858 PRINTS X;TABE3); '!"; 

4969 PRlNT/?T<ieE4);BI«EX,Y);TftB£5);*!*; 

ji ; 

4879 PRjNTVP7.'»ClS};'!*;Te«C23);-r;TrteC 

24);BUX,T);TfleC32J;'l'; 

4888 PRINT^r«C48J;-?-;TneC48);-!-;Tft8t 

S6);'l*;Tf»BCM);-»-; 

4898 PRINT/pTftB(65);CEINTCE9KX,Y)*1B.O) 

*.45))^IBe>;TftBt72);*l' 

4199 RETURN 

4118 PRINTS X;tpse3);"!-; 

4129 PRINT/PTPeC4);QJ«EX); 

4139 PRINT/PTfl9C5);-!-;Tfte£5):J2; 

«M8 PRlNT/PTflBCiS);-!";TABE23);-!' ;TA8£ 

32);-!-;T46(3-3l;01CX); 

4159 PRlNT/PTPeC4B);"'";Tflef«8);"I";rflBC 

SO) ;-l";Tf*(64) ;'-<"; 

4T69 PRINT/P7f4BE6S)iEEINTEE01CX)*l8.0)*. 

45))/lB8);Tft6(72);'!" 

4178 RETURN 

4189 PRTNT/P X;TpeC3);-f"; 

4198 PRIHT/PTftBE4);EI«CX,Y);Tflfl(5);-I-;T 

ftBCD1;j3; 

■•299 PR!NT/PTP.3t!5);'!*;TflBC23);-!";Tn8£ 

32):'l";TflB(4Bj;"»'; 

4218 PRINT/PTf»C4l);£KX,Y);Ti4BC48);"!"; 

Tpet56J;-S*;TPB(64);-!"; 

4228 PRINT/PTp.BC65);fCINTE(El£X,Y)ll8.6J 

i-.45)Viee);Tfl8C72);'!' 

4238 RETURN 

4248 PRINTS X;TA0t3);'!*; 

4259 PRJNT/PTPef4);F|«CX);T*8(5);"!";Ti*e 

E0);J4j. 

4208 PRINT/PTft8E!5);"» , ';TflB£23);"f';'PfiE 

32);-I-;TpsnB);*!'; 

4378 pRir47'PT«aC4BJ;-*";T(WC49);f r irx) ;T 

flS[S81;-|';T(fflt64) ;-*'■; 

4288 PRINT'PTPflC?2);-t* ;T«r?2) ;f £ JNTf EF 

KX3133. 33)T.a3j)/198) 

*238 RETURN 

4388 NE/T X 

4318 PRINTS' 

4328 PRINTVP- 

4338 PRJNT/P-T0TfX.-;'f;C7;T«Bt 15) ;'!';« 

?,WB(23>j*i* .97„;Tfle/:l21 ,'I-;07; 

4349 PRlNT'PTflBt4B),-«" if7fTl*0CJ67}"f ' ;F 

7; 

4359 I?*f UNT((B7itB 6)- .*S1 J/IBB) 

4369 I9=EEINTEED7*I8.6J*.45)}/I98) 

4378 I9=EEINTECE?*18.6)'.4S))/!9a) 

4388 13=18^19-17 

4338 PRJNT'PT«3C56J ;!■;'( lr*T((rt?*?J*. 45 

))/i990;tM(64O; '!' .13, 

4428 PRIHr/PTflB£?2);"|-;f(INT(CF?*33.33) 

*.«S)VIM) 

4419 PRlNT/P" 

4428 PRlNT/p" 

4438 PRlNT/P^RlHT/P'PRINT/r 

4448 G0T03S7B 

4458 REn'CPMIEP tJE UEHTEE" 

4468 E2=8 :«8=8 :F2*8 :F8=3 :LI7=B :C8=8:U8«B ! 

B8-8:E8-9:R8=8-08=B;E3=e 

4478 PRImT'D" 

4488 INPUT* VQ«TES OH ";U 
4438 INPUT- flU " ;S5;&0T0451B 
4588 P 
4518 PRIMC' PP:"; PRINT iPRlKT =1 

INI 

4529 PRINT' 1 i* p-FFlCeflGe SUR tl 

T£ »«" 

453B PRINT/PTPBOS), " UENTES '» 

4549 PRjNl/P" 



-. 

4559 PRlNt/P" 

4568 PRtNl/P"OflH T.T.C f|Wf. Ml UEN 

TE5/2 IDCPPNNflGEfUENTE J3M "1 

4578 PRIST /P"HW Mi TUfl £2) I TUfl £3)" 

4598 PRINTyp- 

4599 PRINTS" 

4699 FOR X-L5 10 SS 

4618 ft2«»- " :B2»«- ■' :C2<»" ■ , :D2* = " * 

:F?t-- -:R2«-- -:U2«>' " 
4828 lFWXK>erNENfl2«=STR«.ef»2CX]J:E2 = C( 
INT(Cfi2tX]*ie?)t.45)J*l88);flB-rtB-n2(X) 
4638 tFft2tX)OBTI»ENF2-C(INTCCfl2tX)i7)t.4 
5)VI88)iF2«»STR«(F2) 

4640 IF MOOoe THENFB>F8'F2!GOSU84730 
4659 IF s2(x)OB TNEN92*-STR«C92tXl) :E2- 
82tX):99-08-32'X) IEB-E2J GG5UB47I8 

*eae i e cscxjob tnenc2«=str*(C2(x)} =E2- 

C2tX]:Ca^C9^C2(X);E8-E2- G0SU3*?ie 

4678 IF J?(X)O0 TNE.N D2*»STM(02tX))iE2 

=(CINT((92(XJ*l33.33)-.45J)-'ie8) 

46B8 !FD2[X)O8THENU2='tC!NTCC02{X)-*33.33 

1'.45JV188) :U24-STR»(U2) 

4699 IF 02CXU>a TnEN0B=08'D2[X):U9"UatU 

2: G0S1ia473e 

4789 G0T047Ba 

47 I fl E2-CC1NTCIE2*! 18.6)1. 45) VI OD) :»2't 

(IMTtCE8»l6.6)i.45))^iea) 

472B R2*=ST3*IR2) .R8"R6"R2 

473Q C3=-E3«E2 

4740 J 8INT^PX;TABC3)i-l-iE2;TF>BC1'l), , 'I"; 

ft2t;T4iec22) ["I" iB2*;103[33) ;T'iC2-i 

*730 PRINT^P TfWC43)i'I*iD24;Tfl8t33);"l" 

;F2«;T|4B(6i);-|*;R24iTp«i:?i)i-|*iU2« 

4760 «»»• •■:92*=" ":C2*»- * :02»>' " 
:C2* = - " -R24"-' ':lJ2i"- ■ 

4779 RETURN 

4780 NCXTX 

4798 PRINT^P- 

4900 PRINTS" 

«BI9 PRINTyp ,, TPL- ;TpBt3) l""!" ;E3;Trt8C I4)i 
"I" ;flBiTpeC22);-t";98;TflSC33)r("iCB; 
4828 PRlNT^PTPBC43);-''lOB;TnBtS3) ;"1"*F 
8;Tfl3C61);"fi08,TflBC71);"E* ^ 
4833 PRIM'tV?'' 

4840 PRINT/P" 

4859 PRINT^PipRINT>P:PRIMT'P 

4868 G0T03578 , 

4878 REP-TRES0RERIE-.TRIN7-S- 

4888 E3-9:F3-9:03-B 

4830 INPUT" OPERATION TSESORERIE OU ' ;L5 

4900 INPUT-flU ';SS 

4910 PRINT-B- :PRINT:PRINT :PRINT 

4328 PRINT-[0)-RETOUR IVFICHAGE GENERftL" 

:PRIHTiPR1NT 

4930 PRINT '"C I )-CPISSEyBPN0US- :PRINT :PRIN 

T 

4948 PRINT" t2)-RECETTESxDEPENSES":PRIHT: 

PRINT 

4958 INPUT" NUTERU CHOISI " JP3 

4960 IF rl3=I GOTO4930 

4378 IF fl3=2 G0T0S468 

4988 IF H3=8 GOTC3570 

4398 PRINT'S": PRINT :PRINT:PRIHT:PRINT:P 

RINT^PRlNT SPRINT 

5839 PRINT" i» ftFFICHPGE SUR irPRlrlfl 
NTE *«" 

5010 PRINT^PTflBC34)i"**TR£S0ReRIE**" 
5020 PRINTS" 

5038 PRINTS' 

5840 PRINTv-P" * 
CftlSSE "; 

5050 PRINT- 1 ?*" * BftMOU 

E 

5060 PRINT'P' 

5370 PRINT^P" 

5888 PRINT--? -'OflTl OESIGNflTION ! 

DEei: ! CREDIT *i 
5099 PRInT^P ■'» SOLOE ! DEBIT 1 
creo: t ! SOLOE ' 
5188 PRINT^P'' 

51 IB PRIMT/P' 

5120 FOR X=L5 TO S5 

5130 FOR r=9 TO I 

5140 IF /*3CX,f)08TNENE3-e3»j4JtX.'f):G3''L 

ENtlW«(X,r))-l i &O-.UB-S260 

5158 NEXT Y 

5' 68 FOR r-fl T03 

5170 IF B3(X,T)<>0 THENE3"E3-B3tX,r):M3" 

LEM83*(X,YJj-1 :0O5U85239 

5188 NEXTT 

5198 FOP r=0 TO 5 

5288 IF C3CX,Y)(>0 rn£NF3"F3-!:3fX, T) -33 = 

L£NCC3«CX, Y))-| :&0SUB533B 

5218 NEXTY 

5228 FOR t-9 TO 6 

5238 IF 03iX,T]OB Tn£nP3=F3-03£X, Y) :P3' 

LENCQ3«(X,T))-I !GOSiJ55360 

5243 NEXT T 

5258 GOT 05338 

5269 PRI'f^p^iTpaOJ,"<";[P!' J HT|{S3*(X,Y 
),£»)) jTs9£20) J-!' }«(X,TJj 

5270 PRINT'PTf»Bt3B)i-!",TflBt48)i " 1 " ;E3iT 
149(39); f" ;rpB(6fl);-(';Ti4Bt?fl)i'»" 
5280 RETURN 

5290 PRIMTxp X;Ty«t3):"l*lCR16MT«(B»Wi 
r),N3))iT/*9£2fl;i- o -;IflBC30) ;"!■'; 
5330 PfllNT^P B3CX,Y);TflB£4B);"*" iE3;TfiB( 
50)i'|-;T/iBCfi0) ; '-• . 

5319 PRInT'P7P9(78);"!" 

5320 RfiTURM 

5339 pRlNT^PX;Tfl(JC3);-t" i(R[8HT«CWX. ' 

),03))iTi4sc2a] i ' i t",rrtanfl), t •; 

5349 PRiNT'PTP.0(4B);-f";TP.fl{SB); !' 'C3£X 

.YjiTf*e(68j; r i' ;'«Bf?a) ;"f" ; f 3 . 

5358 RETURN 

53CB PRINVP x;Tp.gi3j; !' ;rP!GHTtf03«£X. 
f),P3));TftB£2a)ri' ;iflB£30i;"f | 
5378 PRI'.T/PTfl8£40)rf";TA9;3fi) l"l 
BaJl*l*'|03CX»T)iT«(?BJ; , '!'lFa 
3388 RETURN 



5399 HEX I X 

5409 PRINI^P- 

5418 PR1NT--P- 

5429 PRIHT'P'SOLDES * ;TPB£43) ;'I r if 3;TflB 
£58)i'l';Tpfl(7B)i'r'! F3 

5430 PRIflT'P' 

5449 PRINT/P- 

5459 PRINT/P iPRINT'P^PRJNT.'P =00104310 

5468 PR|NT"B-:PRINT^RINT: , 'RINT :PRIhT :PR 

INT:PR!NT :PRINT 

5470 PRINT-' ■ t* «FFICN!4G£ SUR jnPRIflrt 

NTE 11" 

5489 PRIri r 'PTflS£34)i-t*TRES-3P£R!Ei* 

5438 PRlNVP" 

5583 PRINTS" 

5518 PRINT/P" ! 

RECETTES "; 
5520 PRINT/P" ! OE->ENS£ 
S 
5530 PRlNT^P' 

5540 PR!NT'F" 

5558 PRINT/P "Win OESIGNMION ! 

uentes i nouu^For*- ; 

5500 PRINT^P "! 0IUERS ! ACHATS !H 

OUU^FONO! D1UERS " 

5578 PRINT--P- 

5580 PRINT/P' 

5598 FOR X=LS TO SS 

5600 FOR Y=9 TO 1 

5618 IF P3£X,Y)<>8INENG3=LEN(ft34£X,Y))-l 

:GOSL5S720:N£XT T 

SS28 FOR Y=8 T03 

S638 IF 93£X,Y)O0TH£HH3=LtN£B3«£X,Y))-l 

: G0SU85828 

5040 NEXT Y 

5658 FOR Y-8 TO 5 

5668 IF C3£X,Y)OBTH£N03=-LFJHC3*(X,Y))-1 

: GOSUBS320 

5678 NEXTY 

5688 FOR Y=B TO 6 

5698 IF D3(X,Y)<>a TnEnP3=LEn£03«£X,Y)J- 

1 ■■ GOSUS6320 

5708 *£X1 T 

5718 GOT06I28 

5720 \>** LEFT«£p.3*£X,Y),n 

S738 PRINT/P X;Ti4BC3)i"!";(R|GHT»£ft3*£X. 

Y),G3)) ;TpBC28) ;"f; 

5746 IF U* »"A"THEN?RINT/Pi43£X,Y);TftS£30 

);' S-;TABCi0);-i";--GOTOS8i0 

57S8 IF U« --B"TNENPRIHT/PTrtB£38)J"I'iA3 

(X,Y)iTpa(4.9):'l";:G0T058IB 

57S8 IF U» n'C"TNENPRINT^PT(48C3B) ;' - l";Tft 
B£48) i"t" ;*"3CX, Y) ; :GOTOSB10 
5778 PRlNT/PTfl8£30);"f" ;TP9£48) f"I" ; T fl9E 
SBJi"!"; 

578B !F U«-'D' THEN PRINT/P |43£X, Y) ;Tfl8£ 
60 );"!"; TP9 1 79 );"!" : RETURN 
5798 TF Ul'-E' THEN PRINT/PTP0£60) J' 1 !" !« 
3£X,T)iTfl9£?B);' I* :R£TURN 
59B0 IF U«»-c" TNEN PRINT/PTOBtfla);-*" ;T 
ftB£78);'?";rt3£X,T) s RE TURN 
5819 PRINT /PTPS£50); •■" ;TflB(68) ;'f ;TflB£ 
78)i*f" RETURN 
5828 U«= LEFT«£e3t£X,Y),l) 
5838 PRINT /p X;TPBC3); ' f ;fRIGMT*£B3*£X. 
r),H3));Ti49[28);*!-: 

SB48 I- U* ="rt'THENPR!NT/pBJfX,YJilflB(38 
JJ'I* i r fl9£4B); •■"i:&OT059iB 
5653 IF U* =-3"THENPRrNT/PTflB£3a)i"* , ';e3 
CX,Y)iTp.BC48)i-t'; :G0T0S9I9 
5868 IF U* a ''C-'T t HENFRINT/PTAB£331," 4 ";Yfl 
BC49) ,"i";83£X,Y) j:&0T053l8 
5870 PRINT/PTl4B(3B);'!■ , iTAflfia) ;T' ;TrtB£ 
59);"!"; 

3898 IF Ut='0" THEN PRlNT/P B3CX,T);TA8f 
68)i"I" ;T/1St?B) ;■'!- :=ETURN 
5890 IF U*^*F» THEN "RINT/PTOflteB) J»f ;B 
3CX, ri;T#t5(781;*!» OETURN, 
5303 I c Ui^'F* 'MEN PRlNT/P , rtBC60l; 1, S" iT 
flB£?8);«f.33tX,Y) :RCIUR« 
5913 PRiNT/prPBtSa);'!' ;TftB£e8) ;"!* iYftSC 
78);"!* =RETURN 
-5928 UC= L£FT«CC3*CX,Y), 1 1 
5338 PRINT/P X ;TP-BC3) ; ' 1" i< RIGHT*CC3*CX, 
Y),03)) iTneC23);"!": 
5348 IF U* - 1"THENPRINT/PC3£X,'); t n9fi3 

Ji'I'iTMCWJft'; Gorooeie 

5358 IF U* -'S 'Tl<ENFClNT/Pri48£30Jr!" iC3 

Ex.rj^ftBi-iB) ;"v . ocTuOaia 

5368 IF U« = H C ,, THENPR!NT/FrflB(3e)i , I" ;Tf* 

B(43); !";C3;X,Y);.GOTO60IB 

5978 PRlNT/PTflB(39);'! ;TPB£40) ;'!" ;TOB£ 

59);'C; 

5380 IF U«-"D- THEN PRINTVPTl48£S1 ) ;C3CX. 

f);T10£69);-!" ;TPB£79) ;"!':RETURN 

5939 IF Ui=-E" THEN PRINT/PTrtB£OB) ;"!" ;C 

3(X,Y)jTP0C78);"?":R£YURN 

6899 IF U* = 'F- THEN c RINT'PTfl8£69); "!" ;T 

/IBC78) ; "1 ";C3(X,Y) :0£TURS 

6010 PP!Nr'PT18(S0J;'!" ;Tf4B(6B) i~!';TftB[ 

70); '!" IRETURN 

6020 U«> LEFT4£03«£X,Y), |) 

8838 PRINT/P X ; TP8E3J ; " ! " ; tRIGHT*(03*£X, 

Y),P3)j;TnB(?B);"!"; 

0049 IF U4 ■"A"TM£NPRINT-'P03CX.Y);T/I9£38 

) ;"I";TABM0) ;'!"; GO'061 10 

68S8 IF U« --B-THENPRINT/PtiSBOB); f:03 

EX,Y);TP0£48);-I-;&O''OOMB 

6908 IF Ui ■"C"THENPRlNr/PrnSC30); , '' M :Trt 

B(4B) I"!'' iCaEX.Yj^GOfOOl IB 

8070 PRItlT/PIflB£38);"f';T«)(48);"t''iTrtB£ 

58); "J"; 

6980 IF U*-"0-' THEN PRINT/P 03(X,Y);TPBE 

00] , 1 ■ ,lfH(?a);-|':RETURN 

0098 IF Ut-"f" THEN PRINT/PTP-BE60) ; '!" if) 

3£X,Y);TftB£7H) ,' ? 

6100 IF U»-"F' TufN PPIMI/PTPfltflBJ J"'!'" if 

■.■..■■. 
oi IB PRiNT/pTnetsu) i-i-iT«ecoe>i ■ ■ 

ye>i,"1- :RETURN 

cue NEXTX 

0139 PRINT/P- 

6140 PRlNT/F'— 



0159 PRIKVPiPRINf/'* "ai-T/P 

0168 GOTO«3l9 

0178 REP'SOR'IE OVRGES 

0180 U3-8.Ff8.Nl-e 13-B '1>8 :3>»:ff3'«- 

SJ=8:'3=au3=a.?3^B.E''-*a F4^;^4=9 
oi9B U7=8 :ti±e:t*<a f--a *s=a 

6280 PRINT-B 

62I9 I-^-UT'CFERATION CVWIER OE C«*RSES 

U ";lS 

6228 INPUT MJ '.S5 GOT06739 

6233 PRfHT'l JpRJNTifRllfl.WIIIffiWMHTJF 

RINT :PRIHTtPRJNT 

6748 print fAffic^oe Sl-^ in^Rin** 

7E»l' 

6258 PRINT 'P T*W(3S);'t«CfVl*WStt- 

6259 PRInT/P- 

6279 ="R!NI/P- 

623B PRINT/?' 5*1! 0ENOnif*4TI0N I H.' 

i TUft I' ; 
5232 paiKM" 1 TTC 1T0TNL H.T!T0T«- 1 
TQtTfV N>TW»' 
6388 PRINT/?" 

6318 PRiNT/P' 

6328 £7-9:G7-«:S4-9rU4-a'T4-» 3 J7-aiNl-8: 

FI=0;y3-9 

6338 FOR X-1-S TO SS 

6343 FOR Y-8 TO 3 

6350 G4-LENCN4*£X,Y33-1 

6309 IF G4 — 1 GOTO&OSa 

6373 B4H^4L£RIDMT*(N4«£X.Y),£S4)J 

6380 IF 340B G0T064BB 

6330 G0T06098 

6409 C4»-LEFT«tfl4«£X,Y),t) 

64IB IF C44--L" TNENO41--CH./1-0C44TIUES-: 

&0T96S78 

642B IF C4«-"F" TMEN34*-'EnTRETIENT/(>£P' 

^G0T06718 

6<38 IF C4« = "n' THEND4*-'PSSURflP*C£- 

&:T06S?8 

6448 IF C4«-"G- TNENO4*-'O0CUn£NTrtTI0N-: 

GCT0S71* 

6453 IF C44--H" THEN01«-"RErUNE/ INTER '= 

&0T06>I8 

6409 If C4«-"l" THEN041--PUBLIC1TE "J 

GCT00718 

6479 IF C4« = 'J" THEND4««'TRFlNSP/ftCH*lTS-: 

G0T06718 

6^98 IF C«-"N" THEN04*-'OEPLilCEltENT ': 

G0T3657B 

6499 If C-*= 0' TNEN041--FRA1S PTT/EOF - : 

GOT06S78 

6SG3 IF C4«=P- THENO4t--C0riSftTI0NS "1 

G0T06S78 

6519 IF C4«-'0* THEND4*="INTERETS C^C "I 

G3T 06578 

6528 IF C41*-"S' thEn04«-'IHTER£TS EfiPR. 

&0TO6579 
6530 If C4i'"K' 'H£NE4l-" , OI>J£;:S TUfl 
G0T06718 

65« IF C4*=*S" T.,esoifOlUERS N/TUft ' ■ 
&0T05579 
65SG IF f.i**'U" tMEH0**--PEN«.IT£ FISC.- 

G0T06579 
6509 G0T06633 

6379 PRINT/P X;TP3t3);-!' ;04«;T/«(2fl)i-! 
, ';Tfl3(3e);"!■-■Tf*9f4e. , ;"!";9«j 
6SS0 PRlNT/P TflB(50>,'l' ;TOB(60); f . 
6590 I3-I3tB4 

eeet' ir c^-'l-Vmew E4-eitei'-'' ft J** 1 ' , ' T ' ,e{ 

70),-f",E4 

6619 IT C4*-"n-THEH M-f4-B« -^RINT/PTABC 

70).»!".F4 

6678 IF C4*-' , N'TtlEN U4"U4tB4 :PRlNT/PTflB£ 

7B)i"!";«4 

0038 IF C4« = "0'THEN U7»U?*B4 :PRINT/°T«1£ 

7»);-!"jU7 

6648 If C4«--P'THEN X1-X4'B4 :PRlST/P"«C 

7B);"!';X4 

0659 If C4* — 0-THEN Y«=Y4-34; C 'RINT/F r *t3f 

7B):"!';T4 

0608 If (M«»'B"THE« ?4-e4*94PRINT/PTfW£ 

7B);*l-i'4 

6670 If C4*="S'TH£N 29>Z9tB4:PRlNT/PTfl8£ 

78);"l';!8 

6688 If C4»»'U*TMEN E3»E9*B4 -PRlNT/pTftBt 

7B);"!*;E9 

6699 NEXT Y 

6799 GOT 06980 

0710 F2-ECINr(£B4«1B.6)t.45))^iee);G2-££ 

INTC£341|18.6)t.45))/ieB) 

672B U3-U3tB4 

0738 PRlNT/PX;TrtBC3);"I* ;D4* ;T«BC20) J"!" 

;B4;Tfl8E3B) ;"f " ;F2 ; TflS(40) ; ,, !";G2i 

6748 F1-F1-F2 

6759 N1»N1*G2 

6769 IF C4*-"F"THENE?=E7*B4;G0SUBfl84B 

0778 If C41«'G"THENG7-a7 , B4iG0SUB6859 

67B0 If C4«-"n , 'THENS4=S4tB4:&0SUB0908 

0793 If C4»»"I'TMENT4»I4'B4;G0SUS6879 

6888 IF C4«-"J , TH£NU4=U4'34:G0SUB0fl88 
6918 IF C4«-"K'THEN/7-2?-'34;GOSUB0899 
6828 NEXT Y 

6833 GOTOOSaa 

6848 E3«E3'G2' PRINT/PTfl8£5B) i'!" Jf7;Trt6 

£08); l';E3;TPB£7e);-|" "E TURN 

685B G3-G3-G71 pRJNT/PTPB£Sfl) ; 1' ' ;G?;T/iB 

£0e)("!";G3;TPB£7e);'!" RETURN 

6869 S3-S3>G2; PRINT/PTrtflESB) ;"(- ;S4 ;T*i9 

£OB);'I- - ;S3;TrtO(7B);*! ": RE TURN 

0879 T3-T3-G2: P R INI/PTn8£58) i' I ' ;T4;1/1B 

£O8)i"l"iT3,T/19£70J,"r'-t'll...'l 

6889 U3=U3'G2i PBj N 7,ptfl8£3B) ; f'llMlVti 
CMll'l" iU3jT«t«3J"*' RETURN 

6938 ?3=?3.G2: PRINT 'PIPflCSBJ ;"i " ,/7 . Trtll 

tflB);*!' ;?3;T»Q(7fii, !■ -RE'URN 

0000 'i£XT X 

6918 PRINT/P" — 

0328 PRINT/r- " 

..-■.■ 

,,..-. . ■ , i . 

6348 PRINI'P TflBCW 

■ ■ il 
03T.8 PRJNJT'P" 

asoa print ■ - 

0378 PRINT 'PifftlNT/P-PPl-'-. ■ 

■ 



LE LOGICIEL DE LA SEMAINE 

RENDEZVOUS . . . SUf APPLE II 




La France n'a pas encore de sta- 
tion orbitale et ARIANE nest pas 
lout a fait une navetle spatiale 
Possesseurs d'APPLE, rejouis- 
sez-vous ! Les Editions CIEL 

° BLEU vonl vous pefmeltre de 
prendre les commandes de la 
navette amencame Columbia. 
Installez-vous conlortablement 
dans votre fauteuil. chargez la 
cassette 'RENDEZVOUS" et en 
route pour I'espace ! WES HUN- 
TRESS, lauteur du logiciel, est 
chercheur a la NASA et le 

jeu est Ires proche de la realite, 
c'est un veritable entramemenl 
de cosmonaute qui vous est pro- 
pose 

Le jeu se deroule en quatre pha- 
ses : le decotlage de la (usee, la 
mise sur orbite. I'approche de la 
base spatiale et lammage 
Le graphisme haute resolution 
est de tres belle facture et. sur- 
tout la derniere phase d'arrima- 
ge. d'un realisme surprenant. 
Le manuel de 16 pages est en 
FRANCAIS. illustre de nombreux 
schemas et comporte meme un 
glossaire des principaux termes 
techniques. 

Vous avez la possibility de choi- 
sir une des quatre phases des le 
debut du jeu pour vous entrai- 
ner. c'est-a-dire qu'il n'est pas 
necessaire de respecter la pro- 
gression des dilferentes etapes. 
cequiestnettement plusagrea- 
Die que certains ieux ou il faut 



s'enirainer pendant des heures 

pour arriver a voir les derniers 

ecrans 

La premiere phase, le decollage. 

est la plus simple: il faut, en 
jouanl sur la vitesse. I'attitude et 
I'allumage intermittent de vos 
reacteurs. mettre voire fusee en 
orbite Dans la deux le me phase. 
vous pouvez admirer une super- 
be terre aulour de laquelle evo- 
lue la base spatiale ainsi que Tor- 
bite de votre propre engin 
Le jeu va maintenant consister a 
rapprocher les deux orbiles. 
L'ordinateur vous aide a catculer 
les parametres de changement 
d'orbite, lenergie necessaire 
aux manoeuvres et affiche le re- 
sultat de la manoeuvre avant 
que vous ne la validiez. Cette 
partie est la plus "matheuse" du 
logicief puisqu'il vous faudra 
jouer sur Tangle de poussee, le 
Delta-V (changement de Vitesse 
en m/s) et lenergie depensee. 
Mais avec un peu d'habitude et 
le manuel qui n'est avare ni 
d'explications ni de conseils, on 
arrive tres rapidement a com- 
prendre le systeme de calcul. 

La phase 3 est I'approche a vue : 
vous voila maintenant a Tinte- 
rieur de COLUMBIA et un point 
lumineux. une balise. clignote 
au loin. Il vous faut vous en ap- 
procher en vous servant une fois 
de l'ordinateur de bord. Vous dis- 
posez d'un radar qui vous donne 




toutes les indications necessai- 
res: vitesse, distance restante. 
vitesse verticale, vitesse hori- 
zontale. etc. Si vous avez bien 
manoeuvre, vous entrez dans la 
derniere phase du jeu (vous 
pouvez aussi y venir directe 
ment par le menu, c'est plus ra 
pide, mais mains passionnant). 
II va falloir maintenant s'accro 
cher au manche a balai de Tin 
lerieur de la navette vous aper 
cevez le couloir d'entree de l; 
base spatiale. II vous faut ma 
noeuvrer en finesse car dans les 
pace, il ne suffit pas de conirole 
3 dimensions, il y a non seule 
ment les virages a droite et a 
gauche. I'avant et Tarriere mais 
egalement le tangage. la vitesse 
et la rotation. Pas moins de 16 
touches a utiliser avec le 
clavier! Et meme si le corridor 
d'acces a un diametre de 32 me- 
tres, croyez-moi. c'est pas facile- 
facile d'y penetrer! 

SEYMOUR 
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Banc d'essai Duriez 
des 20 micro- 



2A pages. Envoi conlre 3 lim 
bres. Utilisez le Bon ci- 
dessous (gratuit au magasin) 
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Vends 2X 81 + t6 K + assem- 
Dleur + livres. le tout datanl de 
07/82 900 F. Rene LECERFF 
15 bis, rue Jean-Moulin - 91690 
SACLAS Tel. 16(6) 080.93 97 

Vends cause double emploi 
CBM 4032 {grand ecran) + C8M 
2031 +EOEX33(nov 82) -r 100 
programmes. Excellent etat. Le 
tout 15000 F P MACQUET 
2, rue Maurice-Ravel • 31500 
TOULOUSE Tel.: (61) 483219. 
le soir 

Vends SHARP PC 1 500 avec im- 
primanle (CE 150) + memoires 
4 K. 8 K. 16 K protegeables 
(CEl55eiCE16l) + RS232C 
(CE 158) + tablette sensitive 
(CE 153) + cables + cassettes 
"PC-CALC". -PC-MACRO". JEUX 
+ livres + divers accessoires 
L'ensemble 6800 F (valeur neu- 
ve 1 1 000 F). Jean-Pierre DUPLA- 
NIL.T6L: (1) 731.45.23. 

Possesseur dun TI 99/4A cher- 
che contacts pour vendre ou 
echanger: modules (echange 
PARSEC + ECHECS contre 
BASIC ETENDU) : K7 (je posse- 
de + de 60 programmes et Its- 
tings). Mike LAHMI 14. av. Cour- 
teline - 92700 COLOM8ES. Tel. : 
781.14.30. 

Vends COMMODORE VIC 20 
(dec. 82. sous garantie) + ma- 
nettes de jeux + 3 cartouches 
de jeux + extension 8 Ko MEV 
(10/83) + adaptateurN.B. + l li- 
vre. *La decouverte du VIC". + 
4 cassettes de jeux et divers + 
DATA K7. En parfait etat, le tout: 
3000 F. D. 8RIOT 7. rue P.-et-M.- 
Curie - 92360 MEUDON-LA- 
FORET. Tel.: 632 39 83 (apres 
17 h). 

Vends jeu video PHILIPS avec 
21 casselles: prix 2000 F. Rene 
YAtGRE - Dompcevrin 55300 
SAINT-MIHIEL. Tel.- (29) 
90.13,86 (apres 17 h). 

Vends TI 58 C avec module 
MASTER LIBRARY, bloc fiche 
programmes, cartes aide-me- 
moire, chargeur et accus Ste- 
phane GILBERT 2,av de la Tran- 
quillity - 78000 VERSAILLES 

Vends TI 99/4A + cordon K7 + 
manettes jeux + modules jeux 
TI INVADERS. TOMBSTONE- 
CITY. CAR WARS. TUNNELS OF 
DOOM. PARSEC + module 
EXTENSED BASIC + documen- 
tation Ti + 2 numeros 99 maga- 
zine (1 avec cassette) + livre 
jeuxet programmes pour Ti 99 + 
programmes divers, le tout pour 
2300 F, Eric DAVID 43. rue Henri- 
Duvernois - 75020 PARIS. Tel.. 
(1)363-49.48. 

Vends SHARP PC 1500 + 8 Ko 
RAM protegee (CE 159) + 8 Ko 
RM (CE 155) + impnmante [CE 
150) + tablelle digitate (CE 153) 
+ magnetophone (CE 1 52) + pa- 
pier + stylos + 4 livres + pro- 
grammes + sacoche de trans- 
port, ie lout 7000 F. Possibilite 
de ne prendre qu'une partie. 
Joel LEMOINE 2, rue Albert- 
Leyge, bat. 28. esc 2 - 95340 
PERSAN. 

Vends ordinateur Individual 

NEW BRAIN 32 K RAM - 28 K 
ROM. Definition graphique 
230 * 640 + manuels + pro- 
grammes, garantie 10 mi 
tout 3500 F. Eric SANCHEZ 13. 
impasse des Coudrays - 78310 
ELANCOURT. Tel. 062 03.65. 



Cherche programmes s^- 
pour COMMODORE 3'.V 
4022 Possibilite echange Ecri 
re S PETIT JEAN 7, alle^- M 
Richardmenil 54630 FLAVIGNY 
Tel (8) 354 87.29 

Cherche interface d'EXT (avec 
ou sans memoire) pour TRS 80 
MOD 1 Ismael DA CUN- 
rue des Cours-Communes - 
92380 GARCHES Tel (1) 
741 98 80 (apres I8h30). 

Recherche infors sur le module 
MINI-MEMORY de TEXAS 
TI 99/4A Serge PIGUET 82. rue 
du BoiS-Hardy - 44100 NANTES 

Vends en un seul lot ZX 81 2 K 
RAM interne + 16 K RAM exter- 
ne. monl dans cottret pupitre 
avec clavier mecamque, inler/ 
lemoin M-A, video Inverse 
sel. sono clavier deconnecla- 
ble. alim. surpuissante avec 
regulateur pro sur radiateur a 
aileites. generateur sonore avec 
arnpli et H.-P. incorpores. prise 
pourH-P exterteurs.cretemetre 
audio, carte graphique. carte 
bus. prise magneto, tele, sec- 
leur el poignee de jeux (5 fonc- 
tions). manuel SINCLAIR et noti- 
ce des extensions + une selec- 
tion d'ouvrages pour ZX (basic 
et lang mach), soit une dou- 
zaine de livres. revues + listings 
+ trues + schema d'extensions 
+ une sene de K7 (environ 30) 
contenant une centaine de pro- 
grammes (dont des meriits) en 
16 Ko. le tout pour 3000 F ou lieu 
de 5500 F 

Un televiseur noir el blanC 
portable 31 cm, sous garantie, 
500 F. Daniel CLERMONT I, al- 
lee J -B-Lulli • 63430 PONTDU- 
CHATEAU. Tel: (73) 30 3816 
(heures de bureau) 

vends PC 1211 + imprimarite I 

livres : 1 500 F L RICHARD Tel 
(56) 9643.35 

Vends APPLE II + 48 K, 1 unite 
Dis , moniteur AMBRE : 1 000 F 
M MUNEROL.Guy4.rurM .; 
54640 TUCOUEGNIEUX Tel. (8) 
220 46 44. 



Vends VIC 20 achotele 1/2/83 + 
adapt, noir et blanc V livra "A la 
decouverte du Vic + 1 num. de la 
commode + listings de jeu pour 
1 300 F etat neuf. BRIGHINATTI 
Maxlmilien 22, rue Henri DU- 
NANT. 02300 CHAUNY. 

Vends ordinateur SHARP MZ 

phlque 320 x 

200 achetft la 9/83. valeur 

13000 F Vondu 10000 F. 

Tel.: (99)0') 



Vends micro-MULTITECH MPFII 
(Oct. 83) 16 K ROM, 64 K RAM, 
double clavier, VHF-SECAM + 
interface disquettes + cas- 
settes jeux et gestion. 4 300 F. 
M. LAVERRIERE 2, rue des freros 
LUMIERE. 92500 RUEIL-MAL- 
MAISON. Tel. 708 63 04 {apres 
19 h). 

Vends Ti-99/4A. 16 Ko, pentel + 

3 modules (PARSEC, INVADERS, 
BLASTO) + cordon magnttO i 
manettes de |0u + 2 cassettes 
(BASIC, JEUX RETROS) + livres 
Le tout 2500 F Didior PILLET 
17.ruevieilleroutedeCONCAR- 
NEAU 29000 QUIMPER. Tel. 
(98) 53.34 28 

Cherche correspondants pos- 
sedant un COMMODORE 64 
pour echanger programmes 
Ecrire a PEDEFLOUS Eric 16. rue 
NOTRE-DAME. 31400 TOU- 
LOUSE. Reponse assuree 

Vends CASIO FX-702 P avec lm- 
primante FP10 + interlace ma- 
gneto FA 2 + 3K7 coritonant 25 
logiciels (etat impeccable: |uil 
82) pour 1 350 F. Antorno ADAM 
5. rue SEYBOTH 67000 STRAS- 
BOURG. Tel. (89) 78 23 21 uni- 
quement tr i cjl 

VandsTRSeoMOD 1NIV.216K 
(mm 82i * ecran ] magnato + 

doc. + 60 PG (EDTASW 
aventures) vondu 3600 F Phi- 
lippe BOUCHOT 5, fUa 'In 

Pasteur m-l. king, 92700 
COLOMBES, Tel 78165 28. 

Vends TI-99/4A (mars 63) + mo- 
tfulaj Ba ' 

ioyatit ; 

cordon 

LARHE1 61 . ruo DANTON 35000 

RENNl ;. 6.83-69 



